Die Speccy' 97/Die Speccy' 97.iso/amiga_system/the_aminet/comm/cnet/wof_cnet.lha/Game.IBM

Text File | 1995-09-29 | 91KB | 1,474 lines

/**************************************************************************\
          $VER: Wheel of Fortune IBM, v6.41a by Dotoran! (29-Sep-95)
\**************************************************************************/
options results;signal on SYNTAX;signal on ERROR;signal on IOERR
tr=transmit;se=sendstring;gc=getchar;gu=getuser;qu=query;bf=bufferflush
bbsidentify name;bbsname=result;bbsidentify sysop;sysop=result
seed=random(0,1000,time('s'));call READCONFIG
changewhere "WOF IBM Game";oldwh=result

BEGIN: /* Entry Point if Winner Chooses to RePlay the Game. */
    key1='n1'center(k1,78+(m1*3));key2='n1'center(k2,78+(m2*3))
    d=substr(date('s'),5,2);d1=substr(resetD,5,2);if resetM=1&d-d1>=resetV then call RESETGAME
    logs=0;log.='';wh=1;action='Visited ';gu 6;street=result;gu 9;voice=result;gu 10;data=result
    gu 41;sid=result;date=date('s');gu 7;t=result;timeleft=t%10'.'right(t,1)
    dateL=date('m',date,'s')' 'strip(right(date,2),'l','0')', 'left(date,4)
    gu 15;access=result;gu 17;maintA=result;BFlag=0
    cons='BCDFGHJKLMNPQRSTVWXZ';vows='AEIOU';if yvow=0 then cons=cons'Y';else vows=vows'Y'
    wheel='15 10 4 5 3 1 8 6 5 12 3 1 13 2 7 14 6 4 3  2 6 9 4 5';wheal=overlay('11',wheel,42)
    whe='ce100 cc150 cd200 cb250 cc300 c9400 cd450 cf500 cf600 ca750 cd1000 caFREESPIN cbSURPRISE ceLOSETURN c9BANKRUPT'
    locs="2;32|2;41 3;39|3;43 4;41|4;45 5;43|5;47 6;45|6;49 7;47|7;51 8;48|8;52 9;47|9;51 10;45|10;49 11;42|11;47 12;41|12;45 "
    locs=locs"13;39|13;43 14;32|14;41 13;30|13;34 12;28|12;32 11;26|11;31 10;24|10;28 9;22|9;26 8;21|8;26 7;22|7;26 6;24|6;28 "
    locs=locs"5;26|5;30 4;28|4;32 3;30|3;34";freespins=0;cc=0;lo=0;sp=0

    if ~exists(dfile'GameData') then call SETUP

    call READPLAYERS;if player=0 then do;players=players+1
        player=players;player.player=handle'|0|0|0|0|0|0|0|0|0|0|x';end
    parse var player.player handle'|'puzwon'|'monwon'|'puznum'|'moncur'|',
                            played'|'percent'|'bonwins'|'boncash'|'mills'|',
                            bmills'|'junk
    call READDATA;call READSTATS;call READWINNER;call READWINNERS
    call READBWINNERS;call READMILLIONAIRES;call READBMILLIONAIRES
    call READBANKERS;call READLASTPLAYER

START:
    tr 'f1@4';a='ce'sysop' c9Broadcasting cfPresentsca:n1';tr center(a,93);call TITLE
    tr center('cbBrought to you byc9: ca'bbsname' cfTV!n1',93)
    tr center('c6There are ce'total' c6Known Puzzles!',85);tr key1;logmil=1
    if shomil=1 then call MILLIONAIRES;if shomil=2 then do
      se "f1n1c6View ceRegular Millionaires c6Listing? c7[cbNoc7]c9: cb";gc;a=result
      if a~='Y' then tr 'Noc6.';else do;tr 'caYesc6!';call MILLIONAIRES;end;end
    if shobmi=1 then call BMILLIONAIRES;if shobmi=2 then do
      se "f1n1c6View ceBonus Millionaires c6Listing? c7[cbNoc7]c9: cb";gc;a=result
      if a~='Y' then tr 'Noc6.';else do;tr 'caYesc6!';call BMILLIONAIRES;end;end
    if shoban=1 then call BANKERS;if shoban=2 then do
      se "f1n1c6View ceAll Time BEST WOF Player c6Listing? c7[cbNoc7]c9: cb";gc;a=result
      if a~='Y' then tr 'Noc6.';else do;tr 'caYesc6!';call BANKERS;end;end
    if Mflag=1&exists(dfile'NewPuz') then do
      se "n1cbProcess cdUser Created cdPuzzles c6Now? c7[cbNoc7]c9: ";gc;a=result
      if a~="Y" then tr "cbNoc6.";else do;tr "caYesc6!#0 "dfile"Grow "dfile"}";end;end
    logmil=0;call MENU

MAIN:;call MORE0
    se 'n1cf[ca'timeleft' ceMin.Leftcf] cbMenuc9: '
    se 'cf>>>--ceUcf,caHcf,ceYcf,caAcf,cePcf,caLcf,ceBcf,'
    se 'caVcf,ceScf,caIcf,cdQcf,cb?cf=cbMenucf--> '
MAIN1:;gc;a=index('UHALBYPVSIQC!?/M',result);ck=CHECK();bf;if a=0 then signal MAIN1
    if a=16 & Mflag=1 then do;tr 'cbMaintenance#0'dfile'Maint}';changewhere "WOF IBM Game"
        if ~exists(dfile'GameData') | ~exists(dfile'Players') then signal QUIT3;else signal MAIN;end
    if a=1 then do;tr 'ceUser Config';se '#0 'dfile'UserConfig}';call READCONFIG;signal BEGIN;end
    if a=2 then do;tr 'caHall of Fame';call HOFAME    ;signal MAIN;end
    if a=3 then do;tr 'caAll Scores'  ;call ALLSCORES ;signal MAIN;end
    if a=4 then do;tr 'caLast Puzzles';call LASTPUZS  ;signal MAIN;end
    if a=5 then do;tr 'ceBonus Puzzles'; call BONUSPUZS ;signal MAIN;end
    if a=6 then do;tr 'ceYour Stats'  ;call YOURSTATS ;signal MAIN;end
    if a=7 then do;tr 'cePlay Game'   ;signal PLAYGAME;end
    if a=8 then do;tr 'caView Game Logs'
      se 'f1n1c6View cbNEW caGame Log c6Now? cf[cbYescf]c6: ';gc;a=result;if a='N' then tr 'c9Noc6.'
      else do;tr 'cbYesc6!';call MORE1;tr '*0'dfile'Log.NEW.IBM}q1'key1
        call WL("ca"handle" c6viewed the cfNEW cbGame Logc6.");end
      se 'f1n1c6View ceOLD caGame Log c6Now?  cf[c9Nocf]c6: ';gc;a=result;if a~='Y' then tr 'c9Noc6.'
      else do;tr 'cbYesc6!';call MORE1;tr '*0'dfile'Log.OLD.IBM}q1'key1
        call WL("ca"handle" c6viewed the ceOLD cbGame Logc6.");end
      signal MAIN;end
    if a=9 then do;tr 'ceSee Millionaires'
      se 'f1n1c6See c7<caRc7>caegular c6or c7<cbBc7>cbonus ceMillionairesc6? cf[cdQUITcf]c6: ';gc;a=result
      if a='R' then do;tr 'caRegular';call MILLIONAIRES;end
      else if a='B' then do;tr 'cbBonus';call BMILLIONAIRES;end
      else tr 'cdQuit';signal MAIN;end
    if a=10 then do;tr 'caInstructions';call DOCS;signal MAIN;end
    if a=11 then do;tr 'cdQuit Game'   ;call QUIT;signal MAIN;end
    if a=12 & Mflag=1 then do;tr 'c9Cancel Game';signal CANCELGAME;end
    if a=13 & Mflag=1 then do;call open(f1,dfile'LastPlayer','w')
        call writeln(f1,'0|No One|No Where|0|0|1|0|x');call close(f1)
        call READLASTPLAYER;tr 'cePlay Game';signal PLAYGAME;end
    if a>13 then do;tr 'cbMain Menu';call MENU;signal MAIN;end
  signal MAIN1

PLAYGAME:
    if Lhan='No One' & play=0 & handle=winhan then do
        call WL("ca"handle" c6tried to play first, but was the cbLast Winnerc6!")
        se 'f1n1c6'hostM' comes up to you and whispers in your ear, cb"caSorry, cd'handle
        se 'ca, but ce'sysop' Broadcasting cadoesn''t allow recent winners to be '
        se 'the c9FIRST caplayer in a cfNEW cdGameca. You''ll have to wait until another '
        tr 'contestant has played the game.cb"n1'
        se 'c6On your way out of the studio, 'hostF' hands you a slip of paper. '
        tr 'Reading it, you discover the new puzzle.n1';call SHOWPUZZLE
        tr key2;signal QUIT2;end

    if handle=author then do
        call WL("ca"handle" c6tried to play, but is the cbAuthorc6!")
        se 'f1n1c6'hostF' and 'hostM' approach you from the wings.  'hostF' gives '
        se 'you a playful slap on the butt. 'hostM' says, cb"caNaughty. You wrote '
        tr 'the puzzle and must wait until someone wins.cb"n1'
        se 'c6After a moment, 'hostM' continues, cb"caHowever, we will show you how '
        tr 'your puzzle is doing before you leave.cb"n1';call SHOWPUZZLE
        tr key2;signal QUIT2;end

    if newplay=0 & (sid=0 | access=0) then do
        call WL("ca"handle" c6tried to play, but was a cbGuestc6/cbNew Userc6!")
        se 'f1n1c6'hostM' looks at you quizically, cb"caYou''re c9NEW caaround here, aren''t '
        se 'you?  We do not currently allow c9NEW Users ca& c9GUESTS cato Play The Wheel of '
        tr 'Fortune, c9Sorrycb"n1'
        se '"caWe will, however, show you how the current puzzle is doing, in case '
        tr 'you''d like to play after you''ve been validated.cb"c6, 'hostM' says.n1'
        call SHOWPUZZLE;tr key2;signal QUIT2;end

    if Lflag=1 then do
        call WL("ca"handle" c6tried to play, but is the cdLast Playerc6!")
        se 'f1n1c6'hostM' laughs in your face and signals for a bouncer to '
        se 'throw you out of the studio.  You were either the last player, '
        se 'or have too much in common with the last player, and must wait '
        tr 'for someone else to play.n1'
        if chance=1 then do;a=random(1,9);b=random(1,9);if a=b then do
            se 'As the bouncer approaches you, you kick him in the groin '
            se 'and run onto the studio set. 'hostM' has no choice, but to let '
            tr 'you play again!n1'key1;Lhan='Bouncer in Agony!'
            call WL("ca"handle" c6beat up the cbBouncer c6to play again!")
            signal PLAYGAME2;end;end
        if chance>1 & (el>=(chance-1)*6) then do
            se 'c6Twiddling his thumbs, 'hostM' looks at his watch, then '
            se 'tells you, cb"cd'handle'ca, it''s been c9'||(chance-1)*6||' cahours since '
            se 'you last played, and we haven''t had any new contestants, '
            tr 'so come on down and take another spin!cb"n1'key1
            call WL("ca"handle" c6waited the cbalotted time c6to play again!")
            signal PLAYGAME2;end
        se 'c6From over the bouncers shoulder, you get a glimpse of how '
        tr 'the current puzzle is doing...n1';call SHOWPUZZLE
        if chance>1 then do;se 'n1c6'hostM' then tells you, cb"cd'handle'ca, if no other players take a '
            tr 'turn in the next c9'||((chance-1)*6)-el||' cahours, we''ll let you play again.cb"';end
        LHan="";tr key2;signal QUIT2;end
PLAYGAME2:
    if puznum~=puzplay then do;puznum=puzplay;moncur=0
        if handle~=winhan then do;played=played+1
            call WL("ca"handle" c6just ceentered c6this cbGamec6!")
            percent=((puzwon/played)*100)%1;end;end
    if vanna=2&(vannaA=1|(vannaA=2&age>13)|(vannaA=3&age>15)) then do
        se 'caView c6graphic picture of cfVanna White c6now? c7[cbNoc7]c9: cb';gc;a=result
        if a~='Y' then tr 'Noc6.';else do;tr 'caYesc6!'
        se "L70 #"handle"ca? Glad to}L71 #"hostF"ca,}L72 #"hostM" welcomes you to the show,}*4"dfile"Graphics/vanna.ans}@4";end;end
    if vanna=1&(vannaA=1|(vannaA=2&age>13)|(vannaA=3&age>15)) then do
        se "L70 #"handle"ca? Glad to}L71 #"hostF"ca,}L72 #"hostM" welcomes you to the show,}*4"dfile"Graphics/vanna.ibm}@4";end
    if OLog<2&NLog<2&Spin<3&Gibm<4 then tr key1
PLAY:
    if consonants=0 & vowels=0 then do;solve=answer;signal GUESSPUZZLE0;end
    if lo=0 then do;lo=1;call MORE1
        if OLog=1 then tr 'f1c6Previous Game Logc9:n1*0'dfile'Log.OLD.IBM}@4'key1
        if OLog=2 then do;se 'n1c6View caOLD cdGame Log c6Now? c7[caNoc7]c6: ca';gc;a=result
            if a~='Y' then tr 'No.';else tr 'Yes!f1*0'dfile'Log.OLD.IBM}@4'key1;end
        if NLog=1 then tr 'f1c6Current Game Logc9:n1*0'dfile'Log.NEW.IBM}@4'key1
        if NLog=2 then do;se 'n1c6View caNEW cdGame Log c6Now? c7[caNoc7]c6: ca';gc;a=result
            if a~='Y' then tr 'No.';else tr 'Yes!f1*0'dfile'Log.NEW.IBM}@4'key1;end
        if spin=3 then do;call MORE0;se 'n1c6Use c7[cdQc7]cduickc6, c7[caSc7]capinningc6, or c7[cbWc7]cbedge c6Wheel Graphics? '
          se 'c7[cbWedgesc7]c6: ';gc;a=result;if a='Q' then do;tr 'cdQuick';Spin=0;end
          else if a='S' then do;tr 'caSpinning';spin=1;end;else do;tr 'cbWedges';spin=2;end;end
        if gibm=4 then do;tr 'n1c6Possible cePuzzle cfGuessing c6Formatsc9:n1'
          tr '>5cf[caRcf]caegular Format cf(caYou type cfALL cacharacters in Puzzle Title.cf)'
          tr '>5c7<cbTc7>cbimer Shown, while using Regular Format entering above.'
          tr '>5c7<cdFc7>cdill-In-Knowns c7(cdKnown characters automatically filled in.c7)'
          tr '>5c7<ceHc7>ceole-Fill-Ins  c7(ceAll known characters filled in at start.c7)'
          se 'n1c6Use which cePuzzle cfGuessing c6format? cf[caRegularcf]c9: ';gc;a=result
          if a='T' then do;tr 'cbTimer Shown';gibm=1;end
          else if a='F' then do;tr 'cdFill-In-Knowns';gibm=2;end
          else if a='H' then do;tr 'ceHole-Fill-Ins';gibm=3;end
          else do;tr 'caRegular';gibm=0;end;end;end
    a=length(space(answer,0));b=a-(consonants+vowels);call MORE0
    if b/a>.50 & wh=1 then do
        tr 'n1c6'hostM' says, cb"caWe will now add c2$cb1000 cato the Wheel!cb"'
        tr key1;wheel=wheal;wh=2;end
    tr 'f1c9┌──────────────────────────────────────────────────────────────────────────┐'
    tr 'c9│cb▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒▒░░░░░░░░░░cer1 WHEEL OF FORTUNE r0cb░░░░░░░░░░▒▒▒▒▒▒▒▒▒▓▓▓▓▓▓▓▓▓c9│'
    tr 'c9└──────────────────────────────────────────────────────────────────────────┘'
    tr 'z7c4                           Wheel Spots / Odds                               z0'
    if wh=1 then tr 'z7c4      1-$750, 1-$600, 1-$500, 1-$450, 3-$400, 3-$300, 3-$250, 3-$200,       z0'
    if wh=2 then tr 'z7c4  1-$1000, 1-$750, 1-$600, 1-$500, 1-$450, 3-$400, 3-$300, 3-$250, 2-$200,  z0'
    tr 'z7c4      2-$150, 2-$100, 1-Free Spin, 1-Lose Turn, 1-Bankrupt, 1-Surprise      z0n1'
    tr 'cfCurrent Puzzle Numberc9: ce'left(puznum,20)'cfLast Playerc9: cb'Lhan
    tr 'cfCurrent Puzzle Authorc9: ca'left(author,20)'cfLast Winnerc9: cd'winhan'n1'
    call CNUM(moncur);se 'cfPLAYERc9: ce'left(handle,16)' cfWINNINGSc9: c2$cb'
    se left(a,9)' cfPREVIOUS WINNINGSc9: c2$cb';call CNUM(monwon);tr a'n1'
    if Banked=1 & monwon>0 & moncur<300 then do;a1='cf[c9Ucf]c9se Previous'
        a2='Cc9Funds';a3='';s='c9Ucf,';end;else do;a1='';a2='';a3='C';s='';end
    tr 'C'a3'cf[cbScf]cbpin the Wheel     cf[ceBcf]ceuy a Vowel   'a1
    tr 'C'a3'cf[caGcf]cauess the Puzzle   cf[cdQcf]cduit Play     'a2
    tr;call SHOWPUZZLE;tr 'CcfFree Spinsc9: ca'freespins'n1'
    if consonants>0 & vowels>0 then tr center('cbr1 Good Luck! r0',87)
    if consonants=0 then tr center('cer1 There are ONLY Vowels left in this Puzzle! r0',87)
    if vowels=0 then tr center('c9r1 There are NO MORE Vowels left in this Puzzle! r0',87)
    se 'n1cf[caPlaycf] >>>--cbScf,ceBcf,'s'caGcf,cdQcf--> '
PLAY1:
    gc;a=result;ck=CHECK();if index('!SBUGQ',a)=0 then do;bf;signal PLAY1;end;if a="!"&MFlag=1 then tr 'n1'answer
    if a='U' & Banked=1 & monwon>300 & moncur<300 then do
        tr 'c9Use Funds';signal USEFUNDS;end
    if a='S' then do;tr 'cbSpin Wheel'  ;signal SPINWHEEL  ;end
    if a='B' then do;tr 'ceBuy Vowel'   ;signal BUYVOWEL   ;end
    if a='G' then do;tr 'caGuess Puzzle';signal GUESSPUZZLE;end
    if a='Q' then do;tr 'cdQuit Play'   ;signal MAIN       ;end
  signal PLAY1

USEFUNDS:;moncur=moncur+300;monwon=monwon-300;Banked=0
  signal PLAY

SPINWHEEL:;if consonants=0 then do;se 'n1c6'hostM' reminds you, cb"cd'handle'ca, '
        tr 'caremember, there are cfONLY VOWELS caleft in this puzzle.cb"'
        call WL("ca"handle" c6tried to cfSPIN c6with ceONLY VOWELS c6left!")
        tr key1;signal PLAY;end
    if Spin=0 then do;se "f1n8c6Spinningc9: ";a1=random(1,24);t=slow%100
      do i=1 to 24;se left(word(whe,word(wheel,i)),11)
        call time('r');do until time('e')>=t;end;se 'h8';end i
      do i=1 to a1;se left(word(whe,word(wheel,i)),11)
        call time('r');do until time('e')>=t;end;se 'h8';end i
      tr 'z4cf'substr(word(whe,word(wheel,a1))'z0',4,11)'n1'
      c=word(wheel,a1);end
    if Spin=1 then call D17
    if Spin=2 then do;se 'f1';a=random(25,60);sp=sp+a
        do until sp<30;sp=sp-25;end;b=random(2,4)
        a=sp-b;b=sp;if a<1 then a=1;action='Played ';call D16
        do i=a to b;ii=i;if i>24 then ii=i-24;spot=word(wheel,ii)
            call D0;end i;tr 'n9';end
    if c=12 then signal FREESPIN;if c=13 then signal SURPRISE
    if c=14 then signal LOSETURN;if c=15 then signal BANKRUPT
    a='100 150 200 250 300 400 450 500 600 750 1000';money=word(a,c)
    tr 'cfThere is c2$cb'money' cfshowing on the ceWheelcf!n1'
SURPRISE0B:
    call SHOWPUZZLE
SPINWHEEL1:
    se 'scfType Your Guessc9:ca ';gc;guess=result;ck=CHECK()
    if index(cons,guess)=0 then do;se 'u';signal SPINWHEEL1;end
    bf;se guess;call CNUM(money)
    log="c6With c2$cb"a" c6on cfThe Wheelc6, ca"handle
    log=log" c6guesses c9"guess"c6...";call WL(log)
    if index(guessed,guess)>0 then do
        call WL("c6Which was c9ALREADY cbGuessedc6!")
        se 'n2c6That caconsonant c6has cfalready c6been guessed...w1u'
        signal SPINWHEEL1;end
    if index(answer,guess)>0 then do;tr '  cf>>>---> caGOOD GUESS!'
        g=guessed;if g='' then g=guess;else g=g'-'guess
        guessed=g;call COUNT;consonants=consonants-tot
        call UNCOVER;call COLORPUZZLE;call COLORGUESSED;Lhan=handle
        if tot=1 then call WL("c6There was ce1 c9"guess"c6 in the puzzle: "puzzle2)
        if tot>1 then call WL("c6There were ce"tot" c9"guess"c6's in the puzzle: "puzzle2)
        if index(cons,guess)>0 then moncur=moncur+(money*tot)
        if tot=1 then se 'n1Cc6There is ce1 cb"ca'guess'cb" '
            else se 'n1Cc6There are ce'tot' cb"ca'guess'cb"c6''s '
        tr 'c6in the puzzle.n1'key1;signal PLAY;end
    if index(answer,guess)=0 then do;tr '  cf>>>---> c9WRONG!!'
        g=guessed;if g='' then g=guess;else g=g'-'guess
        guessed=g;Lhan=handle;call COLORGUESSED
        call WL("c6But there were cbNO c9"guess"c6's in the puzzle: "guessed2)
        if freespins=0 then do;tr 'n1Awwww... cbBetter Luck cfnext time.'
            call WL("ca"handle" c6is cffinished c6for this turn.")
            call SAVEPLAYERS;call SAVEDATA;signal QUIT2;end
        tr 'n1ceBut not to worry, cfYou have a cbFree Spincf!'
        call WL("c6However, ca"handle" c6has a cbFree Spinc6!")
        freespins=freespins-1;tr key1;signal PLAY;end
FREESPIN:
    call WL("ca"handle" c6just landed on cbFREE SPINc6!")
    se 'c6'hostM' says, cb"caCongratulations cd'handle'ca, you now have a c9Free '
    tr 'Spinca!cb"';freespins=freespins+1;tr key1
  signal PLAY
LOSETURN:
    call WL("ca"handle" c6just landed on cdLOSE A TURNc6!")
    se 'c6Frowning, 'hostM' tells you, cb"caUh Oh cd'handle'ca, looks like you '
    tr 'c9Lose a Turnca.cb"n1';if freespins>0 then do
        se 'cb"caThat''s alright, however, because you still have a cbFree '
        tr 'Spinca!cb"c6, 'hostM' says consolingly.';freespins=freespins-1
        call WL("c6However, ca"handle" c6has a cbFree Spinc6!")
        tr key1;signal PLAY;end
    se 'cb"caThat''s too bad, you weren''t doing all that bad. Well, you '
    tr 'can try again next callcb"c6, 'hostM' mumbles.';Lhan=handle
    call WL("ca"handle" c6is cffinished c6for this turn.")
    call SAVEPLAYERS;call SAVEDATA;signal QUIT2
BANKRUPT:
    call WL("ca"handle" c6just landed on c9BANKRUPTc6!");call CNUM(moncur)
    call WL("ca"handle" c6loses c2$cb"a" c6bucks!")
    se 'cb"c9BANKRUPTca! Only one on the whole wheel, and cd'handle'ca, you '
    tr 'just found itcb"c6, 'hostM' informs you.n1';moncur=0
    if freespins>0 then do
        tr 'cb"caLuckily you still have a cbFree Spinca!cb"c6, 'hostM' praises.'
        call WL("c6However, ca"handle" c6has a cbFree Spinc6!")
        freespins=freespins-1;tr key1;signal PLAY;end
    tr 'cb"caHopefully you''ll do better cfnext callca!cb"c6, 'hostM' explains.'
    call WL("ca"handle" c6is cffinished c6for this turn.")
    Lhan=handle;call SAVEPLAYERS;call SAVEDATA;signal QUIT2
SURPRISE:
    call WL("ca"handle" c6just landed on cfSURPRISEc6!")
    tr 'cb"caWow, ceSURPRISEca!cb"c6, 'hostM' exclaims!n1'
    a=random(1,6);a='SURPRISE'a;signal (a)
SURPRISE1:
    call WL("ca"handle"c6's cfSURPRISE c6is a cbFREE SPINc6!")
    se 'cb"caWell, cd'handle' cayour ceSurprise cais a cbFREE SPINca!cb"c6, 'hostM' informs '
    tr 'you.';freespins=freespins+1;tr key1;signal PLAY
SURPRISE2:
    if vowels=0 then signal SURPRISE3
    call WL("ca"handle"c6's cfSURPRISE c6is a ceFREE VOWELc6!")
    se 'cb"caHey cd'handle'ca, Congratulations, your ceSURPRISE cais to '
    tr 'cfBUY caa ceVOWEL cafor cfFREEca!cb"c6, 'hostM' states.n1'
    moncur=moncur+250;signal SURPRISE0A
SURPRISE3:
    c=random(1000,1500);money=c;call CNUM(money)
    call WL("ca"handle"c6's cfSURPRISE c6is c2$cb"a" c6on cfThe Wheelc6!")
    se 'c6Pulling out a white envelope, 'hostM' opens it and says, cb"cd'handle
    tr 'ca, this next guess will be worth c2$cb'a' bucks! cfGood Luckca!cb"n1'
  signal SURPRISE0B
SURPRISE4:
    suPR=suPR1;suVA=suVA1;signal SURPRISE7
SURPRISE5:
    suPR=suPR2;suVA=suVA2;signal SURPRISE7
SURPRISE6:
    suPR=suPR3;suVA=suVA3
SURPRISE7:
    if suPR=5 then signal SURPRISE2;if suPR=6 then signal SURPRISE1;if suPR=4 then signal SURPRISE3
    if (suPR=0 & InfTimeR=1) | (suPR=1 & InfGameP=1) | (suPR=2 & InfByteC=1) | (suPR=3 & InfFileC=1) then do
        a=random(1,3);a='SURPRISE'a;signal (a);end
    if suPR=0 then do;addtime (suVA)
        call WL("ca"handle"c6's cfSURPRISE c6is ca"suVA" cfExtra Minutesc6!")
        se 'ce'sysop' c6waves 'hostM' over to him.  When he returns, 'hostM' tells you, '
        se 'cb"caCongrats cd'handle'ca, ce'sysop' cahas given you cf'suVA
        tr ' c9Extra Minutes caOnline!cb"n1'key1;end
    if suPR=1 then do;addpoints (suVA);call CNUM(suVA)
        call WL("ca"handle"c6's cfSURPRISE c6is ca"suVA" cfPfile Game Pointsc6!")
        se 'ceThe Director c6tells 'hostM' he has a phone call from ce'sysop'c6. When '
        se 'he returns, 'hostM' tells you, cb"caHey cd'handle'ca, Guess what?! ce'sysop
        tr ' cahas decided to give you cf'a' c9Pfile Game Pointsca. Congrats!cb"n1'key1;end
    if suPR=2 then do;gu 35;a=result;a=a+suVA;setobject a;putuser 35;call CNUM(suVA)
        call WL("ca"handle"c6's cfSURPRISE c6is ca"suVA" cfByte Creditsc6!")
        se 'ce'hostF' c6steps offstage, then returns with a satisfied grin on her face, '
        se 'cb"caI''ve just been with ce'sysop'ca! He wants you to receive cf'a
        tr ' c9Byte Credits caas your Surprise! Good Going!cb"n1'key2;end
    if suPR=3 then do;gu 34;a=result;a=a+suVA;setobject a;putuser 34
        call WL("ca"handle"c6's cfSURPRISE c6is ca"suVA" cfFile Creditsc6!")
        se 'ce'hostF' c6faints dead away on the stage. When she comes to, she tells '
        se 'you, cb"caI''ve just had a vision from ce'sysop'ca!  In it, he told me '
        tr 'to make sure you received cf'suVA' c9File Credits caright now!cb"n1'key2;end
  signal PLAY

BUYVOWEL:
    if vowels=0 then do;se 'n1c6'hostM' reminds you, cb"cd'handle'ca, '
        tr 'remember, there are cfONLY CONSONANTS caleft in this puzzle.cb"'
        call WL("ca"handle" c6tried to cfBUY A VOWEL c6with ceONLY CONSONANTS c6left!")
        tr key1;signal PLAY;end
    if moncur<300 then do
        call WL("ca"handle" c6tried to ceBUY c6a cbVowel c6with only c2$cb"moncur"c6!")
        se 'n1c6'hostM' informs you ceVowels Cost c2$cb250c6, and that you''ll '
        tr 'need at least c2$cb300 c6to buy one!n1'key1;signal PLAY;end
    se 'f1n5c6Turning towards you, 'hostM' says, cb"cd'handle'ca, enter the '
    tr 'ceVOWEL cayou wish to ceGuessca. Remember, this will cost you c2$cb250ca!cb"n1'
SURPRISE0A:
    call SHOWPUZZLE;action='Played '
BUYVOWEL1:
    se 'scfType Your Guessc9: ce';gc;guess=result;ck=CHECK()
    if index(vows,guess)=0 then do;se 'u';signal BUYVOWEL1;end
    bf;se guess;call WL("ca"handle" ceBUYS c6the cbVowel c9"guess"c6...")
    if index(guessed,guess)>0 then do
        call WL("c6But that cbVowel c6was c9Already c6guessed!")
        se 'n1c6That cavowel c6has cfalready c6been guessed...w1u'
        signal BUYVOWEL1;end
    if index(answer,guess)>0 then do;tr '  cf>>>---> caGOOD GUESS!'
        g=guessed;if g='' then g=guess;else g=g'-'guess
        guessed=g;call COUNT;vowels=vowels-tot
        call UNCOVER;call COLORPUZZLE;call COLORGUESSED;moncur=moncur-250
        if tot=1 then call WL("c6There was ce1 c9"guess"c6 in the puzzle: "puzzle2)
        if tot>1 then call WL("c6There were ce"tot" c9"guess"c6's in the puzzle: "puzzle2)
        if tot=1 then se 'n1Cc6There is ce1 cb"ca'guess'cb" '
            else se 'n1Cc6There are ce'tot' cb"ca'guess'cb"c6''s '
        tr 'c6in the puzzle.n1'key1;signal PLAY;end
    if index(answer,guess)=0 then do;tr '  cf>>>---> c9WRONG!!'
        g=guessed;if g='' then g=guess;else g=g'-'guess
        guessed=g;Lhan=handle;call COLORGUESSED;moncur=moncur-250
        call WL("c6But there were cbNO c9"guess"c6's in the puzzle: "guessed2)
        if freespins=0 then do;tr 'n1Awwww... cfBetter luck c6next time.'
        call WL("ca"handle" c6is cffinished c6for this turn.")
            call SAVEPLAYERS;call SAVEDATA;signal QUIT2;end
        tr 'n1c6But not to worry, cfYou have a cbFree Spincf!'
        call WL("c6However, ca"handle" c6has a cbFree Spinc6!")
        freespins=freespins-1;tr key1;signal PLAY;end

GUESSPUZZLE:
    if zero=0 & moncur<100 then do
        se 'n1c6'hostM' wipes his brow, then looks at you, cb"caSorry, cd'handle
        se 'ca, but you need more than c2$cb100 cabefore you can attempt to cfGUESS '
        tr 'cathis puzzle!cb"n1'key1;signal PLAY;end
    se 'f1n5c6Startled, 'hostM' asks, cb"caSo, cd'handle'ca, you think you know '
    tr 'this puzzle.  Well, cfgood luck cain guessing it!cb"n1'
    call WL("ca"handle" c6will try and cfSOLVE c6the puzzle...")
    call SHOWPUZZLE;len=length(puzzle)
    tr 'n1cfType your cbGuess cfbelow the ceCurrent Puzzlec9:n1'
    tr 'cf The Puzzle Nowc9: 'translate(puzzle2,hide,'@');bf
    if gibm=0|gibm=1 then do;tr 'cfYour Best Guessc9: cai4225 'len'}'
        gu 70;solve=result;ck=CHECK();signal ASC4;end
    if gibm=2 then do;pu=translate(puzzle,'@',hide)
      se "cfYour Best Guessc9: ca";solve='';c=1
ASC1:;if c<=length(pu) then z=substr(pu,c,1);else z="
"
  if z~="@"&z~="
" then do;solve=solve||z;se z;signal ASC3;end
ASC2:;gc;a=result;ck=CHECK()
  if a=d2c(13) then do;tr;signal ASC4;end
  if a=d2c(8) then do;if c=1 then signal ASC2;c=c-1
    solve=left(solve,c-1);se "h1";signal ASC2;end;solve=solve||a;se a
ASC3:;c=c+1;signal ASC1;end
    if gibm=3 then do;pu=translate(puzzle,'@',hide);pt=translate(pu,' ','@')
    se "cfYour Best Guessc9: cas"pt"u";solve='';c=1
IBM1:;if c<=length(pu) then z=substr(pu,c,1);else z="
"
  if z~="@"&z~="
" then do;solve=solve||z;se z;signal IBM3;end
IBM2:;gc;a=result;ck=CHECK();if a=d2c(13) then signal ASC4
  if a=d2c(8) then do;if c=1 then signal IBM2;c=c-1
    solve=left(solve,c-1);se "h1";signal IBM2;end;solve=solve||a;se a
IBM3:;c=c+1;signal IBM1;end
ASC4:;if solve~=answer then do
    call WL("c6But, alas, more cbSTUDY c6is needed for this puzzle!")
    se 'c6Shaking his head, 'hostM' tells you, cb"caI''m sorry cd'handle
    tr 'ca, but that''s c9not cathe correct answer.cb"n1'
    Lhan=handle;if freespins=0 then do
    tr 'n1c9Awwww... c6Try again when a cbfew more letters c6are showing.'
        call WL("ca"handle" c6is cffinished c6for this turn.")
        call SAVEPLAYERS;call SAVEDATA;signal QUIT2;end
    tr 'n1c6But not to worry, cfYou have a cbFree Spincf!'
    call WL("c6However, ca"handle" c6has a cbFree Spinc6!")
    freespins=freespins-1;tr key1;signal PLAY;end
GUESSPUZZLE0:
    if solve=answer then do
        if olm>0 then do;se "c6Sending cfOLM'sc6:ca   "
            call SENDOLM("   cfCongratulations c6to cd"handle" c6who just c9SOLVED c6the current cbWheel of Fortune cePuzzlec6!");end
        call WL("cfCongratulations c6to ca"handle" c6who just cbSOLVED c6the puzzle!")
        se 'f1n1c6Clapping his hands, 'hostM' says, cb"caCongratulations cd'handle;call CNUM(moncur)
        tr 'ca, You''ve just won c2$cb'a' cain cfCASH caand cfPRIZESca!cb"'
        if puPR>0 then do;call CNUM(puVA)
            se 'n1c6For c9winning c6the game, cb'sysop' Broadcasting c6has decided '
            se 'to give you ca'a' ce'pr.puPR'c6!  Enjoy them!n1'
            if puPR=1 then addtime (puVA);if puPR=2 then addpoints (puVA)
            if puPR=3 then do;gu 35;b=result;b=b+puVA;setobject (b);putuser 35;end
            if puPR=4 then do;gu 34;b=result;b=b+puVA;setobject (b);putuser 34;end
            call WL("ca"handle" c6was awarded cf"a" c9"pr.puPR"c6 for solving this cfPuzzlec6!");end
        puzwon=puzwon+1;winhan=handle;windate=date;wins=puzwon
        winpuz=answer;played=played+1;monwon=monwon+moncur
        winmon=monwon;percent=((puzwon/played)*100)%1
        winner=winhan'|'winpuz'|'windate'|'winmon'|'wins'|x'
        winners=winners+1;winner.winners=winhan'|'winpuz'|'windate'|x'
        l.1='cc'copies('=',78);l.2='cf  The Win Datec9: cb'dateL
        l.3='cf    The Puzzlec9: ce'answer;l.4='cf   Puzzle Cluec9: ca'clue;call CNUM(winmon)
        l.5='cf Puzzle Winnerc9: cd'handle;l.6='cfTotal Winningsc9:c2$cb'a
        do i=1 to 6;call WL(l.i);end i;if winners>max1 then do;winners=max1
            do i=2 to max1+1;j=i-1;winner.j=winner.i;end i;end
        if played>mostplays then do;se 'n1c6'hostM' says, cb"cd'handle
            tr 'ca, you c9broke cathe old cfMOST PLAYS caRecord!cb"'
            call WL("ce  A NEW RECORDc9: cfPlayed the caMOST cfTimes!")
            mostplaysH=winhan;mostplays=played;end
        if wins>mostpuzs then do;se 'n1c6'hostM' says, cb"cd'handle
            tr 'ca, you c9broke cathe old cfMOST PUZZLES caRecord!cb"'
            call WL("ce  A NEW RECORDc9: cfWon the caMOST cfPuzzles!")
            mostpuzsH=winhan;mostpuzs=wins;end
        if monwon>mostbank then do;se 'n1c6'hostM' says, cb"cd'handle
            tr 'ca, you c9broke cathe old cfMOST TOTAL WINNINGS caRecord!cb"'
            call WL("ce  A NEW RECORDc9: cfWon the caMOST cfBucks cdEVERcf!")
            mostbankH=winhan;mostbank=monwon;end
        if moncur>mostcash then do;se 'n1c6'hostM' says, cb"cd'handle
            tr 'ca, you c9broke cathe old cfMOST WINNINGS caRecord!cb"'
            call WL("ce  A NEW RECORDc9: cfWon the caMOST cfBucks in cdONE GAMEcf!")
            mostcashH=winhan;mostcash=moncur;end
        stats.1=mostplaysH'|'mostplays'|x';stats.2=mostpuzsH'|'mostpuzs'|x'
        stats.3=mostbankH'|'mostbank'|x'  ;stats.4=mostcashH'|'mostcash'|x'
        if monwon>=1000000 then do;se 'n1c6'hostM' says, cb"cd'handle"ca, you've won more than cbOne Million "
            tr 'cadollars! Adding you to the ceRegular Millionaires Listca!cb"'
            call WL("ce A MILLIONAIREc9: caOne Million cfdollars in cbRegular Prize cfmoney!")
            monwon=monwon-1000000;z=millionaires+1;do i=1 to millionaires
              if index(mil.i,handle)~=0 then do;z=i;leave i;end
            end i ; if z>millionaires then millionaires=z;mills=mills+1
            if mills=mills3 then do;se 'n1c6After doing so, 'hostM' says, cb"caHey cd'handle"ca, you now have ce"mills3" MILLION cadollars! "
              tr 'I''m adding you as our next cfALL TIME BEST WOF PLAYERca!cb"'
              call WL("ce  A NEW BANKERc9: ca"mills3" MILLION cfdollars in cbRegular Prize cfmoney!")
              mills=0 ; BFlag=1 ; zz=bankers+1;do i=1 to bankers
                if index(bil.i,handle)~=0 then do;zz=i;leave i;end
              end i ; if zz>bankers then bankers=zz
              t=btype.zz ; if t=2|t=3 then t=3 ; else t=1
              if zz=bankers then bills.zz=mills3;else bills.zz=bills.zz+mills3
              bil.zz=bills.zz'|'date'|'handle'|'t'|x'
              if bankers>max3 then do;do i=2 to bankers+1 ; j=i-1 ; bil.j=bil.i ; end i
                bankers=max3 ; end;call SAVEBANKERS ; call READBANKERS ; mil.z=''
              do i=1 to millionaires ; j=i+1
                if mil.i='' then do ; mil.i=mil.j ; mil.j='' ; end
              end i ; millionaires=millionaires-1 ; end
            if mills>0 then do;mil.z=mills'|'date'|'handle'|x'
              if millionaires>mills1 then do
                do i=2 to mills1+1;j=i-1;mil.j=mil.i;end i
              millionaires=mills1;end;end
            call SAVEMILLIONAIRES;call READMILLIONAIRES;end
        call SAVEWINNERS;call SAVEWINNER;call SAVESTATS;call SAVEPLAYERS
        call WL("c9"right("ce"dateL,78,'-')"c9---");call BONUSROUND
        t1=boncash+(bmills*1000000);t2=monwon+(mills*1000000)
        if (resetM=2&t2>=resetV)|(resetM=4&t1+t2>=resetV)|(resetM=5&BFlag=1) then call RESETGAME
        se 'n1c6Shaking your hand, 'hostM' tells you, cb"caAs the cfnewest cbWheel of '
        tr 'Fortune ceWinnerca, you have to make a choice.cb"n1'
        tr '>5cf1c9: ceCreate a cfNew Puzzle cefor use at a cdLATER cedate.n1'
        tr '>5cf2c9: c6Let cd'bbsname' cbGenerate c6next puzzle.c7(cdDEFAULTc7)n1'
        se 'cfWhat''s your choice, cd'handle'cf? ';gc;ga=result
        if ga~='1' then signal GENERATE

MAKEPUZZLE:
    tr 'ceI''ll make it!'
    se 'n1cb"caOK, cd'handle'ca, Please enter your cePuzzleca:cb"c6, '
    tr hostM' asks fervently.n1'
    tr 'scfPuzzlec9:cai129 50}';gu 70;a=result;a=strip(a,'b')
    if result='###PANIC' | result='' then signal GENERATE
    if length(a)<9 then do
        se 'c6Whispering in your ear, ca'hostF' c6tells you that '
        se 'puzzle is cbtoo c6short.w2u';signal MAKEPUZZLE;end
    se 'cb"ca'a'cb"n2cfIs this correct cd'handle'cf? (caYcf/cbncf)c9: '
    gc;b=result;if result='###PANIC' then signal GENERATE
    if b~='N' then do;tr 'caYes!';newpuz=a;end
    if b='N' then do;se 'cbNo. ceTry Againw1u';signal MAKEPUZZLE;end
    se 'n1cb"caNow enter a cfClue cafor your cfPuzzleca, cd'handle'cb"c6, '
    tr hostM' guides you.n1'
MAKECLUE:
    tr 'scf  Cluec9:cei129 20}';gu 70;a=result;a=strip(a,'b')
    if result='###PANIC' | result='' then signal GENERATE
    if length(a)<3 then do
        se 'n1c6Pinching your butt, ca'hostF' c6gives you the sign that '
        se 'your clue is cbtoo c6short.w2u';signal MAKECLUE;end
    se 'cb"ca'a'cb"n2cfIs this correct cd'handle'cf? (caYcf/cbncf)c9: '
    gc;b=result;if result='###PANIC' then signal GENERATE
    if b~='N' then do;tr 'caYes!';newclue=a;end
    if b='N' then do;se 'cbNo. ceTry Againw1u';signal MAKECLUE;end
    author=handle;a=exists(dfile'NewPuz')
    if a=0 then call open(f1,dfile'NewPuz','w')
    if a=1 then call open(f1,dfile'NewPuz','a')
        z=newpuz'|'newclue'|'author'|x';call writeln(f1,z)
    call close(f1);call WL("ca"handle" c6decided to ceMAKE c6a new puzzle...")
    se 'n1c6'HostM' shakes your hand once again, cb"caThanks cd'handle'ca, we''ll be sure '
    tr 'to use your puzzle sometime in the future.cb"'

GENERATE:
    if ga~=1 then tr 'c6Generate cfNEW cePuzzlec6!'
    call open(f1,dfile'PuzData','r');a=strip(readch(f1,5),'t',d2c(0))
        if nextpuznum>a then nextpuznum=1
        ptr=((nextpuznum*90)-90)+5;call seek(f1,ptr,'b')
        p=strip(readch(f1,50),'t',d2c(0));c=strip(readch(f1,20),'t',d2c(0))
        a=strip(readch(f1,20),'t',d2c(0));call close(f1);nextpuznum=nextpuznum+1
    newpuz=translate(p,reverse(xrange('!','~')),xrange('!','~'))
    newclue=translate(c,reverse(xrange('!','~')),xrange('!','~'))
    author=translate(a,reverse(xrange('!','~')),xrange('!','~'))
    if author='Pat & Vanna' then author=hosts
    call WL("ca"handle" c6decided to let ce"bbsname" c6choose the next puzzle...")

GENERATE2:
    puzplay=puzplay+1;consonants=0;vowels=0;guessed=''
    do i=1 to length(newpuz);z=substr(newpuz,i,1)
        if index(cons,z)>0 then consonants=consonants+1
        if index(vows,z)>0 then vowels=vowels+1
    end i;answer=newpuz;Lhan='No One';clue=newclue
    puzzle=translate(answer,,xrange('A','Z'),'@');newlog=0;call SAVELOG
    if exists(dfile'Log.OLD.ASC') then address command 'delete 'dfile'Log.OLD.ASC';address command 'rename 'dfile'Log.NEW.ASC 'dfile'Log.OLD.ASC'
    if exists(dfile'Log.OLD.ANS') then address command 'delete 'dfile'Log.OLD.ANS';address command 'rename 'dfile'Log.NEW.ANS 'dfile'Log.OLD.ANS'
    if exists(dfile'Log.OLD.IBM') then address command 'delete 'dfile'Log.OLD.IBM';address command 'rename 'dfile'Log.NEW.IBM 'dfile'Log.OLD.IBM'
    call open(f1,dfile'LastPlayer','w');call writeln(f1,'0|No One|No Where|0|0|1|0|x');call close(f1)
    log.1='cfNEW cbGame c6Started Onc9: cb'dateL;newlog=1
    log.2='cf     The NEW Puzzlec9: ce'puzzle;log.3='cf    NEW Puzzle Cluec9: ca'clue
    log.4='cf  NEW Puzzle Authorc9: cd'author;log.5='cc'right('cf'dateL,78,'=')'cc==='
    logs=5;call SAVELOG;se 'n1cf'hostM' c6& ca'hostF' c6would like to cfThank You c6for playing '
    se 'cbWheel of Fortune c6today, and hope to see you as a cacontestant '
    tr 'c6again someday!n1';aut=author;call SAVEDATA
    if play=1 & handle~=aut then do
        se hostM' asks, cb"caWould you like to be the c9FIRST caplayer of the '
        se 'cfNEW caGame cd'handle'ca?cb"n2c6(cayc6/cbNc6)cf: '
        gc;a=result;if a='Y' then do;tr 'caYes!';signal BEGIN;end
        else tr 'cbNo.';end
    changewhere oldwh;signal QUIT3

BONUSROUND:
    call WL("ca"handle" c6is eligible to play the cfBONUS Roundc6...")
    se 'n1c6Would cbYOU c6like to caPlay c6the cfBonus Roundc6? c7[caYesc7]c6: ca';gc;a=result
    if a='N' then do;tr 'No.';call WL("c6But ca"handle" c9declinesc6 playing! Why?!?");return;end
    tr 'Yes!';call WL("cfAlrightc6, ca"handle" c6accepts the challenge...");changewhere "WOF Bonus Round"
    if smart=2 then do;se 'n1c6Would cbYOU c6like to use cfSmart Bonus Lettersc6? c7[caNoc7]c6: ca'
        gc;a=result;if a~='Y' then do;tr 'No.';smart=0;end;else do;tr 'Yes!';smart=1;end;end
    call open(f1,dfile'PuzData','r');a=strip(readch(f1,5),'t',d2c(0))
        if nextbonpuz<1 then nextbonpuz=a;npn=nextbonpuz
        do until length(p)>=minB;ptr=((npn*90)-90)+5;call seek(f1,ptr,'b')
        p=strip(readch(f1,50),'t',d2c(0));npn=npn-1;end
        c=strip(readch(f1,20),'t',d2c(0));a=strip(readch(f1,20),'t',d2c(0))
    call close(f1);newpuz=translate(p,reverse(xrange('!','~')),xrange('!','~'))
    newclue=translate(c,reverse(xrange('!','~')),xrange('!','~'));answer=newpuz
    author=translate(a,reverse(xrange('!','~')),xrange('!','~'));clue=newclue
    puzzle=translate(answer,,xrange('A','Z'),'@');len=length(puzzle)
    prize=random(100,500)*100;call CNUM(prize);let='RSTNLE'
    tr 'f1>5c9┌────────────────────────────────────────────────────────────────┐'
    tr '>5c9│cb>X<>X<>X<>X<>X<>X<r1ce Welcome to the Bonus Round r0cb>X<>X<>X<>X<>X<>X<c9│'
    tr '>5c9└────────────────────────────────────────────────────────────────┘n1'
    se 'c6'hostM' explains the cfBonus Roundc6, cb"caYou''ll be trying to solve a puzzle in a '
    se 'set amount of time.  We''ll give you the letters ceRca, ceSca, ceTca, ceNca, ceLca, and ceEca.  '
    se 'You will also be asked for c6threec7(c63c7) camore consonants, and c6onec7(c61c7) camore vowel. '
    se 'If you can solve the cfBonus Puzzle cabefore time runs out, you''ll win '
    tr 'today''s cbCash cdPrize caof c2$cb'a' cfbucksca!cb"n1'
    if smart=0 & smartB>0 then do;call CNUM(smartB)
        se 'c6If you select ceRc6, ceSc6, ceTc6, ceNc6, ceLc6, or ceE c6for one of your caAdditional c6letters, '
        se 'and then cfSOLVE c6the cbBonus Puzzlec6, you will be awarded c2$cb'a' cfbucksc6, '
        tr 'in addition to today''s cbCash cdPrizec6.n1';end
    do ii=1 to 6;guess=substr(let,ii,1);call UNCOVER;end ii;call COLORPUZZLE
    tr '>8c6The Bonus Puzzlec9: ce'translate(puzzle2,Hide,'@')'n1'
    tr '>ac6The Bonus Cluec9: ca'clue;tr
BROUND1:
    se 'sc6Enter cathreec7(ca3c7) c6more cbconsonantsc9:cai4225 3}'
    gu 70;a=result;ck=CHECK();a1=left(a,1);a2=substr(a,2,1);a3=substr(a,3,1);if a1="!"&MFlag=1 then do;tr 'n1'answer;signal BROUND1;end
    if index(cons,a1)=0|index(cons,a2)=0|index(cons,a3)=0 then do;tr 'n1Please type THREE CONSONANTS now!w1u^1';signal BROUND1;end
    if smart=1 & index(let,a1)~=0 then tr 'n1The consonant 'a1' was already given to you.w1u^1'
    if smart=1 & index(let,a2)~=0 then tr 'n1The consonant 'a2' was already given to you.w1u^1'
    if smart=1 & index(let,a3)~=0 then tr 'n1The consonant 'a3' was already given to you.w1u^1'
    if smart=1 & (index(let,a1)~=0|index(let,a2)~=0|index(let,a3)~=0) then signal BROUND1;else tr
BROUND2:
    se 'sc6  Enter caonec7(ca1c7) c6more  cbvowel c6nowc9:cai4225 1}';gu 70;a4=result;ck=CHECK()
    if index(vows,a4)=0 then do;tr 'n1Please type ONE VOWEL now!w1u^1';signal BROUND2;end
    if smart=1 & a4='E' then do;tr 'n1The vowel E was already given to you.w1u^1';signal BROUND2;end
    do ii=1 to 4;guess=substr(a1||a2||a3||a4,ii,1);call UNCOVER;end ii;call COLORPUZZLE
    Bprize=0;do ii=1 to 4;if index(let,substr(guess,ii,1))>0 then Bprize=1;end ii
    se 'n1c6'hostF' nudges 'hostM' to bring him out of his stupor, cb"caAlright, cd'handle'ca, '
    se 'you will be given cf'timer' caseconds to solve the ceBonus Puzzleca! '
    tr 'Press any key when you''re ready to c9Start cathe cfBonus Roundca!cb"n1'key1
    tr 'f1>4c9┌──────────────────────────────────────────────────────────────────┐'
    tr '>4c9│cc>X<>X<>X<>X<>X<>X<r1cf Can You Win the Bonus Round? r0cc>X<>X<>X<>X<>X<>X<c9│'
    tr '>4c9└──────────────────────────────────────────────────────────────────┘n1'
    se '>5c6The Bonus Prize isc9: c2$cb';call CNUM(prize);tr a' cfbucksc6!n1'
    tr '>4c6Bonus Letters Givenc9: cdRce-cdSce-cdTce-cdNce-cdLce-cdEce-cd'a1'ce-cd'a2'ce-cd'a3'ce-cd'a4'n1'
    tr '>6c6The Bonus Clue isc9: ca'clue'n1'
    tr '>4c6The Bonus Puzzle isc9: 'translate(puzzle2,hide,'@')'n1'
    t=timer;call time('r');z='';zz='';bf
    if gibm=0 then do;se '>4c6Your Bonus Guess isc9: cd_'
GUESS1:;maygetchar;a=result;ck=CHECK();if time('e')>=t then do;bf;signal OUTOFTIME;end
    if a='NOCHAR' then signal GUESS1;if a=d2c(8) & z='' then signal GUESS1
    if a=d2c(8)  & z~='' then do;z=left(z,length(z)-1);se 'h2_';signal GUESS1;end
    if a=d2c(13) & z=answer then signal GOODGUESS;if a=d2c(13) & z~=answer then signal BADGUESS
    zz=upper(a);z=z||zz;se 'h1cf'zz'cd_';signal GUESS1;end
    if gibm=1 then do;tr '    c6Seconds Leftc9: ca'left(trunc(t-time('e'),1),4)' c9> cf'
GUESS2:;se '19Hca'left(trunc(t-time('e'),1),4)' c9> cf'z'cd_ h1'
    maygetchar;a=result;ck=CHECK();if time('e')>=t then do;bf;signal OUTOFTIME;end
    if a='NOCHAR' then signal GUESS2;if a=d2c(8) & z='' then signal GUESS2
    if a=d2c(8) & z~='' then do;z=left(z,length(z)-1);signal GUESS2;end
    if a=d2c(13) & z=answer then signal GOODGUESS;if a=d2c(13) & z~=answer then signal BADGUESS
    zz=upper(a);z=z||zz;signal GUESS2;end
    if gibm=2 then do;pu=translate(puzzle,'@',hide);se ">4c6Your Bonus Guess isc9: cd_";solve='';c=1
BASC1:;if c<=length(pu) then z=substr(pu,c,1);else z="
"
    if z~="@"&z~="
" then do;solve=solve||z;se "h1cf"z"cd_";signal BASC3;end
BASC2:;maygetchar;a=result;ck=CHECK();if time('e')>=t then do;bf;signal OUTOFTIME;end
    if a='NOCHAR' then signal BASC2
    if a=d2c(8) then do;if c=1 then signal BASC2;c=c-1
        solve=left(solve,c-1);se "h2cd_";signal BASC2;end
    if a=d2c(13) & solve=answer then signal GOODGUESS
    if a=d2c(13) & solve~=answer then signal BADGUESS
    solve=solve||upper(a);se "h1cf"upper(a)"cd_"
BASC3:;c=c+1;signal BASC1;end
    if gibm=3 then do;pu=translate(puzzle,'@',hide);pt=translate(pu,' ','@')
    se ">4c6Your Bonus Guess isc9: cfs"pt"u";solve='';c=1
BIBM1:;if c<=length(pu) then z=substr(pu,c,1);else z="
"
    if z~="@"&z~="
" then do;solve=solve||z;se "cf"z;signal BIBM3;end;se "cd_"
BIBM2:;maygetchar;a=result;ck=CHECK();if time('e')>=t then do;bf;signal OUTOFTIME;end
    if a='NOCHAR' then signal BIBM2
    if a=d2c(8) then do;if c=1 then signal BIBM2;c=c-1
        solve=left(solve,c-1);se "h2cd_";signal BIBM2;end
    if a=d2c(13) & solve=answer then signal GOODGUESS
    if a=d2c(13) & solve~=answer then signal BADGUESS
    solve=solve||upper(a);se "h1cf"upper(a)
BIBM3:;c=c+1;signal BIBM1;end

OUTOFTIME:
    call WL("ca"handle" c9ran out of time c6in the cfBonus Roundc6!");bf
    se 'n2c6'hostM' looks at 'hostF' and frowns, cb"caI''m sorry cd'handle'ca, but '
    se 'catime has run out.  Hopefully, we''ll see you in another cfBonus '
    tr 'Roundca sometime soon!cb"n1'
    if showB=2 | showB=4 then tr '   cfThe ceBonus Puzzle cfwasc9: cb'answer
    tr key1;tr 'f1'
  signal ENDBONUS

GOODGUESS:
    if olm>0 then do;se "n2c6Sending cfOLM'sc6:ca   "
        call SENDOLM("   cfCongratulations c6to cd"handle" c6who just c9SOLVED c6the cbWheel of Fortune cfBONUS cePuzzlec6!");end
    call WL("cfCongratulations c6to ca"handle" c6who just cbSOLVED c6the cfBONUS Puzzlec6!");bf
    se 'n2c6Jumping up and down, you grab 'hostF' in a bear hug and she squeals. '
    se hostM' confronts you, cb"caCalm down cd'handle'ca, great job, you solved '
    se 'today''s cfBonus Puzzleca, and win c2$cb';call CNUM(prize);tr a' cfbucks cadoing it!cb"n1'key1
    tr 'f1c6'hostM' continues, cb"cd'handle'ca, you''ve also just won:cb"n1'
    a=right(random(1,20),2,'0');tr '*6'dfile'Graphics/Prize'a'.ibm}n1'key1
    prizes=prizes+1;prize.prizes=date'|'prize'|'bpPR'|'bpVA'|'Bprize'|'smartB'|'a'|x'
    if prizes>20 then do;do i=1 to 21;j=i+1;prize.i=prize.j;end i;prizes=20;end;call SAVEWOF
    if bpPR>0 then do;call CNUM(bpVA)
        se 'n1c6For c9solving c6the ceBONUS c6Puzzle, cb'sysop' Broadcasting c6has decided '
        se 'to give you ca'a' ce'pr.bpPR'c6!  Enjoy them!n1'key1
        if bpPR=1 then addtime (bpVA);if bpPR=2 then addpoints (bpVA)
        if bpPR=3 then do;gu 35;b=result;b=b+bpVA;setobject (b);putuser 35;end
        if bpPR=4 then do;gu 34;b=result;b=b+bpVA;setobject (b);putuser 34;end
        call WL("ca"handle" c6was awarded cf"a" c9"pr.bpPR"c6 for solving the ceBonus Puzzlec6!");end
    if Bprize=1 & smartB>0 then do;call CNUM(smartB)
        call WL("ca"handle" c6also won c2$cb"a" cfbucks c6from the ceSmart Bonus Prizec6!")
        se 'n1c6You have also won c2$cb'a' cfbucks c6as the ceSmart Bonus Prize c6winner!n1'key1
        boncash=boncash+smartB;end
    bonwins=bonwins+1;boncash=boncash+prize;tr 'f1'
    if bonwins>mostbwins then do;se 'n1c6'hostM' says, cb"cd'handle
        tr 'ca, you c9broke cathe old cfMOST BONUS WINS caRecord!cb"'
        call WL('ce  A NEW RECORDc9: cfWon the caMOST BONUS GAMES cdEVERcf!')
        mostbwinsH=handle;mostbwins=bonwins;end
    if boncash>mostbcash then do;se 'n1c6'hostM' says, cb"cd'handle
        tr 'ca, you c9broke cathe old cfMOST BONUS CASH caRecord!cb"'
        call WL('ce  A NEW RECORDc9: cfWon the caMOST BONUS CASH cdEVERcf!')
        mostbcashH=handle;mostbcash=boncash;end
    stats.5=mostbwinsH'|'mostbwins'|x';stats.6=mostbcashH'|'mostbcash'|x'
    bwinner=handle'|'answer'|'date'|'prize'|'bonwins'|x';bwinners=bwinners+1
    bwinner.bwinners=handle'|'answer'|'date'|'prize'|x';if bwinners>max2 then do
        do i=2 to max2+1;j=i-1;bwinner.j=bwinner.i;end i;bwinners=max2;end
    if boncash>=1000000 then do
        se 'n1c6'hostM' says, cb"cd'handle"ca, you've won more than cbOne Million "
        tr 'cadollars! Adding you to the ceBonus Round Millionaires Listca!cb"'
        call WL("ce A MILLIONAIREc9: caOne Million cfdollars in cbBONUS Prize cfmoney!")
        boncash=boncash-1000000;z=bmillionaires+1;do i=1 to bmillionaires
          if index(bmil.i,handle)~=0 then do;z=i;leave i;end
        end i ; if z>bmillionaires then bmillionaires=z;bmills=bmills+1
        if bmills=mills3 then do;se 'n1c6After doing so, 'hostM' says, cb"caHey cd'handle"ca, you now have ce"mills3" MILLION cadollars! "
          tr 'I''m adding you as our next cfALL TIME BEST WOF PLAYERca!cb"'
          call WL("ce  A NEW BANKERc9: ca"mills3" MILLION cfdollars in cbBonus Prize cfmoney!")
          bmills=0 ; BFlag=1 ; zz=bankers+1;do i=1 to bankers
            if index(bil.i,handle)~=0 then do;zz=i;leave i;end
          end i ; if zz>bankers then bankers=zz
          t=btype.zz ; if t=1|t=3 then t=3 ; else t=2
          if zz=bankers then bills.zz=mills3;else bills.zz=bills.zz+mills3
          bil.zz=bills.zz'|'date'|'handle'|'t'|x'
          if bankers>max3 then do;do i=2 to bankers+1 ; j=i-1 ; bil.j=bil.i ; end i
            bankers=max3 ; end;call SAVEBANKERS ; call READBANKERS ; bmil.z=''
          do i=1 to bmillionaires ; j=i+1
            if bmil.i='' then do ; bmil.i=bmil.j ; bmil.j='' ; end
          end i ; bmillionaires=bmillionaires-1 ; end
        if bmills>0 then do;bmil.z=bmills'|'date'|'handle'|x'
          if bmillionaires>mills2 then do
            do i=2 to mills2+1;j=i-1;bmil.j=bmil.i;end i
            bmillionaires=mills2;end;end
        call SAVEBMILLIONAIRES;call READBMILLIONAIRES;end
    call SAVESTATS;call SAVEBWINNER;call SAVEBWINNERS;call SAVEPLAYERS
  signal ENDBONUS

BADGUESS:
    call WL("ca"handle" c9incorrectly guessed c6the cfBonus Puzzlec6!");bf
    se 'n2c6Looking at the white card in his hand, 'hostM' walks over to you, cb"caI''m '
    se 'sorry cd'handle'ca, but that''s an incorrect guess of this cfBonus '
    tr 'Puzzleca. Better luck next time, eh?cb"n1'
    if showB=3 | showB=4 then tr '   cfThe ceBonus Puzzle cfwasc9: cb'answer'n1'
    tr key1;tr 'f1'
  signal ENDBONUS

ENDBONUS:
    call READDATA;nextbonpuz=npn-1;call SAVEDATA;changewhere "WOF IBM Game"
    t1=boncash+(bmills*1000000);t2=monwon+(mills*1000000);if (resetM=3&t1>=resetV)|(resetM=4&t1+t2>=resetV)|(resetM=5&BFlag=1)           then call RESETGAME
   return

CANCELGAME: /* SysOp Command; Cancels & AutoGenerates a NEW Game */
    tr 'n1c6'hostM' asks, cb"caYou really want to c9CANCEL cathis Game?cb"'
    se 'n1c6(cayc6/cbNc6) cf>>>---> ';call COLORPUZZLE
    gc;a=result;if a~='Y' then do;tr 'cbNo!';signal MAIN;end
    call WL("z4cf   "sysop" has decided to c9CANCEL cfthis game! (Errors?)  z0n1")
    call WL("cf     The Puzzle Wasc9: ce"puzzle2"n1")
    call WL("cf     The Answer Wasc9: ca"answer"n1")
    tr 'caYes!n1';signal GENERATE

COUNT:
    tot=0;len=length(answer)
    do i=1 to len;a=substr(answer,i,1)
    if guess=a then tot=tot+1;end i
  return

UNCOVER:
    do i=1 to len;z=substr(answer,i,1)
    if guess=z then puzzle=overlay(guess,puzzle,i,1);end i
  return

SHOWPUZZLE:
    tr 'cf Current Puzzlec9: 'translate(puzzle2,Hide,'@')
    tr 'cf    Puzzle Cluec9: ca'clue
    tr 'cfGuessed Lettersc9: cd'guessed2
  return

COLORPUZZLE:
    a='';do i=1 to length(puzzle);b=substr(puzzle,i,1)
    if b='@' then a=a'ce@';else a=a'cb'||b
    end i;puzzle2=a
  return

COLORGUESSED:
    a='';do i=1 to length(guessed);b=substr(guessed,i,1)
    if b='-' then a=a'ce-';else a=a'cd'||b
    end i;guessed2=a
  return

CNUM: /* Comma Number Parser (Place commas inside numbers) */
    parse arg a;b=length(a);if b=4 then a=insert(',',a,1,1)
    if b=5 then a=insert(',',a,2,1);if b=6 then a=insert(',',a,3,1)
    if b=7 then do;a=insert(',',a,1,1);a=insert(',',a,5,1);end
  return

SAVELASTPLAYER:
    a=sid'|'handle'|'street'|'voice'|'data'|'right(date('s'),2)'|'left(time(),2)'|x'
    call open(f1,dfile'LastPlayer','w');call writeln(f1,a);call close(f1)
  return

READLASTPLAYER:
    call open(f1,dfile'LastPlayer','r');a=readln(f1);call close(f1)
    parse var a Lsid'|'Lhan'|'Lstr'|'Lvoi'|'Ldat'|'Lday'|'Lhrs'|'j
    cd=right(date('s'),2);ch=left(time(),2);el=(((cd-Lday)*24)+(ch-Lhrs))
    Lflag=0;Mflag=0
    if Last=0 & (sid=Lsid | handle=Lhan) then Lflag=1
    if Last=1 & (sid=Lsid | handle=Lhan | street=Lstr | voice=Lvoi | data=Ldata) then Lflag=1

    if maint=1 & sid=1 then Mflag=1;if maint=2 & access=23 then Mflag=1
    if maint=3 & access=31 then Mflag=1;if maint=4 & maintA>0 then Mflag=1
  return

WL:;parse arg log;logs=logs+1;log.logs=log;return

SAVELOG:
    a='ANS IBM ASC';if newlog=0 then se 'n1cbSaving cdGame ceLogsc6...cb'
        else se 'n1cfCreating c9NEW ceLogsc6... cf'
    do i=1 to 3;b=subword(a,i,1);f='Log.NEW.'||b
        call open(f1,dfile||f,substr('wa',exists(dfile||f)+1,1))
            do j=1 to logs;if i=1 then call writeln(f1,log.j)
                if i=2 then call writeln(f1,translate(log.j,'─═','-='))
                if i=3 then do;do until c=0;c=index(log.j,'')
                    if c>0 then log.j=delstr(log.j,c,3);end;call writeln(f1,log.j);end
            end j;call close(f1)
    end i;tr 'h8h8ed!'
  return

HOFAME:
    call WL("ca"handle" c6viewed the cfHALL OF FAMEc6!")
    tr 'f1n1c6'hostM' says, cb"caHere are the cfHigh Scores cd'handle'ca!cb"n1'
    tr "cf     Hc7igh cfSc7corer's cfHc7andle       ceHc6igh ceSc6core ceBc6roken       cbScacore cbTcao cbBcaeat"
    tr "c9    ══════════════════════   ═══════════════════════   ═══════════════"
    tr 'cf'right(mostplaysH,25)'ce        Most Games EVER           cb'mostplays;call CNUM(mostbank)
    tr 'c7'right(mostbankH,25)' c6       Most Money EVER          c2$ca'a
    tr 'cf'right(mostpuzsH,25)' ce       Most Games EVER           cb'mostpuzs;call CNUM(mostcash)
    tr 'c7'right(mostcashH,25)' c6    Most Money In 1  Game       c2$ca'a
    tr 'cf'right(mostbwinsH,25)'ce     Most BONUS Games EVER        cb'mostbwins;call CNUM(mostbcash)
    tr 'c7'right(mostbcashH,25)'c6     Most BONUS Cash  EVER       c2$ca'a
    tr 'c9    ══════════════════════   ═══════════════════════   ═══════════════n1'
    se 'Cc6View caAll Time Best WOF Player cbListings c6Now? c9[cfYesc9]c6: cf';gc;a=result
    if a='N' then do;tr 'No.';return;end;else do;tr 'Yes!';call BANKERS;end
  return

YOURSTATS:
    z1st='No.';do i=1 to bankers;if index(bil.i,handle)~=0 then do;z1st='Yes!';z=i;leave i;end;end i
    z2st='No.';do i=1 to millionaires;if index(mil.i,handle)~=0 then do;z2st='Yes!';leave i;end;end i
    if z2st='No.'&z1st='Yes!'&(btype.z=1|btype.z=3) then z2st='Not Presently!'
    z3st='No.';do i=1 to bmillionaires;if index(bmil.i,handle)~=0 then do;z3st='Yes!';leave i;end;end i
    if z3st='No.'&z1st='Yes!'&(btype.z=2|btype.z=3) then z3st='Not Presently!'
    call WL("ca"handle" c6viewed current cbGAME STATSc6!")
    tr 'f1n1c6'hostM' says, cb"caHere are your stats cd'handle'ca!cb"n1'
    tr '                        ceWc6inning ceSc6tatistics    cbScacore'
    tr 'c9  ═════════════════════════════════════════  ══════════'
    tr 'ce         Total Number of Games You Have Wonc9:  cb'puzwon
    tr "c6    Percentage of Times You've Won the Gamec9:  cd"percent'cf%';call CNUM(monwon)
    tr 'ce         Total Amount of Money You Have Wonc9: c2$ca'a
    tr 'c6        Are you an All Time Best WOF Playerc9:  cd'z1st'n1'
    tr '                  ceRc6egular ceRc6ound ceSc6tatistics    cbScacore'
    tr 'c9  ═════════════════════════════════════════  ══════════'
    tr 'ce            Currently Playing Puzzle Numberc9:  cb'puznum
    tr 'c6      Total Number of Games You Have Playedc9:  ce'played
    tr 'ce        Are you a Regular Round Millionairec9:  cd'z2st'n1'
    tr '                    ceBc6onus ceRc6ound ceSc6tatistics    cbScacore'
    tr 'c9  ═════════════════════════════════════════  ══════════'
    tr 'ce         Total Number of BONUS Games Playedc9:  cb'bonwins;call CNUM(boncash)
    tr "c6         Total BONUS Prize Money You've Wonc9: c2$ca"a
    tr 'ce          Are you a Bonus Round Millionairec9:  cd'z3st
    if prizes>0 then do;se 'n1  c6Want to caview c6your cbPrize cdHistory c6now? c7[cbNoc7]c9:  ';gc;a=result
      if a~='Y' then do;tr 'cbNoc6.';return;end;else tr 'caYesc6!';call MORE1
      do i=1 to prizes ; parse var prize.i d1'|'d2'|'d3'|'d4'|'d5'|'d6'|'d7'|'j
        d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', 'left(d1,4)
        se 'f1c6Datec9: cf'd'c6, Bonus Cashc9: c2$ca';call CNUM(d2);se a'c6, ';call CNUM(d6)
        if d5=1 then se 'Smart Bonusc9: c2$ca'a'c6, ';call CNUM(d4)
        if d3>0 then se 'SysOp Bonusc9: cb'a' cd'word('MINUTES GAMEPOINTS BYTECREDITS FILECREDITS',d3)'c6, '
        tr 'and you also wonc9:n1*0 'dfile'Graphics/Prize'd7'.ibm}n1'
        if i<prizes then do;se 'cb'i' c6of cb'prizes' c6total prizes. c7<cdQc7>cduitc6, or caany other key c6to continue...';gc;a=result
          if a='Q' then do;tr 'c6Quit';leave i;end;else tr 'caContinue';end
      end i;call MORE0;end;tr key1
  return

ALLSCORES:
    call WL("ca"handle" c6viewed cdALL PLAYER SCORESc6!")
    tr 'f1n1c6'hostM' says, cb"caHere are c9ALL caof the cfScores cd'handle'ca!!cb"n1'
    tr 'z7c4 Wheel of Fortune     Total    Money  Play   Money  Max  Win Bon.    Bonus R Bz0'
    tr 'z7c4 Player Alias(Handle)  Wins   Earned  Puz#     Now Play    % Wins Earnings M Mz0'
    tr 'c9═══════════════════════════════════════════════════════════════════════════════'
    parse var player.player d1'|'d2'|'d3'|'d4'|'d5'|'d6'|'d7'|'d8'|'d9'|'d10'|'d11'|'j
    call CNUM(d3);a1=a;call CNUM(d5);a2=a;call CNUM(d9);a3=a;zy=0;zz=0
    if d10>0 then zy=d10;if d11>0 then zz=d11
    se "cbr1*"right(d1,20)" "right(d2,4)"  "right("$"a1,8)"  "right(d4,4)" "
    tr right("$"a2,7)" "right(d6,4)" "right(d7"%",4)" "right(d8,3)"  "right("$"a3,8)" "zy" "zz"r0"
    do i=1 to players;se 'ca';if i//2=0 then se 'cb'
        if i=player then z='r1*';else z=' '
        parse var player.i d1'|'d2'|'d3'|'d4'|'d5'|'d6'|'d7'|'d8'|'d9'|'d10'|'d11'|'j
        call CNUM(d3);a1=a;call CNUM(d5);a2=a;call CNUM(d9);a3=a;zy=0;zz=0
        if d10>0 then zy=d10;if d11>0 then zz=d11
        se z||right(d1,20)" "right(d2,4)"  "right("$"a1,8)"  "
        se right(d4,4)" "right("$"a2,7)" "right(d6,4)" "right(d7"%",4)" "
        tr right(d8,3)"  "right("$"a3,8)" "zy" "zz"r0";if i//15=0 then do
        se 'cf>>>--cdEntercf-->';gc;a=result;if a=d2c(13) then se 'hd'
        else do;tr ' ccAbort';leave i;end;end;end i
    tr 'c9═══════════════════════════════════════════════════════════════════════════cf│c9═ce│c9═'
    tr "CcfMillions Won in Regular Rounds ───┘ ce│"
    tr "CceMillions Won in Bonus   Rounds ─────┘";tr key1
  return

LASTPUZS:;call MORE1
    call WL("ca"handle" c6viewed the ceLAST "max1" WINNERSc6!")
    tr 'f1c6'hostM' says, cb"caHere are the ceLast 'max1' Winnersca, cd'handle'ca!cb"n1'
    tr 'CcfWho Solved It!CcbThe Date Solvedn1CcdThe Puzzle Text'
    tr 'Cc9═════════════════════════ ═══════════════════════════';do i=1 to winners;d1=windate.i
        d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', 'left(d1,4)
        tr 'Ccf'left(winhan.i,25)'cb'd'n1Ccd'winpuz.i
    end i;tr 'Cc9═════════════════════════════════════════════════════';tr key1;call MORE0
  return

BONUSPUZS:;call MORE1   /* Display Last "max2" Bonus Puzzles */
    call WL("ca"handle" c6viewed the ceLAST "max2" BONUS WINNERSc6!")
    tr 'f1c6'hostM' says, cb"caHere are the ceLast 'max2' c9Bonus Puzzle ceWinnersca, cd'handle'ca!cb"n1'
    tr 'CcfWho Solved It!CcbThe Date SolvedCc2Bcaonus c2Pcarizen1CcdThe Puzzle Text'
    tr 'Cc9═════════════════════════ ═════════════════════ ═════════════'
    do i=1 to winners;d1=windate.i;call CNUM(bwincash.i)
        d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', 'left(d1,4)
        tr 'Ccf'left(bwinhan.i,25)'cb'left(d,22)'c2$ca'a'n1Ccd'bwinpuz.i
    end i;tr 'Cc9═════════════════════════════════════════════════════════════';tr key1;call MORE0
  return

MILLIONAIRES:;call MORE1
    if logmil=0 then call WL("ca"handle" c6viewed the ceRegular cfMILLIONAIRES c6listing!")
    tr 'f1n1c6'hostM' says, cb"caThese players won a million dollars in Regular Play!cb"n1'
    tr "cc░░░░░░░░░░░░░░░░░░░░░░░░░z0cfr1 Regular Game Millionaires r0cc░░░░░░░░░░░░░░░░░░░░░░░░░n1"
    tr "CceMc6illionaire's ceHc6andle   cbWc3hen cbTc3hey cbMc3ade cbIc3t    caTc2otal caWc2orth"
    tr "Cc9══════════════════════ ════════════════════ ═════════════"
    do i=1 to millionaires;c1='e6b3a2';if i/2=i%2 then c=2;else c=1
        se 'Cc'substr(c1,c,1)right(milhan.i,21)'   ' ; d1=mildate.i
        d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', '
        d=d||left(d1,4) ; se 'c'substr(c1,c+2,1)left(d,21)
        tr 'c'substr(c1,c+4,1)mills.i' Million'
    end i ; tr "Cc9══════════════════════ ════════════════════ ═════════════" ; tr key1;call MORE0
  return

BMILLIONAIRES:;call MORE1
    if logmil=0 then call WL("ca"handle" c6viewed the ceBonus cfMILLIONAIRES c6listing!")
    tr 'f1n1c6'hostM' says, cb"caThese players won a million dollars in Bonus Play!cb"n1'
    tr "cc░░░░░░░░░░░░░░░░░░░░░░░░░z0cfr1 Bonus Round Millionaires r0cc░░░░░░░░░░░░░░░░░░░░░░░░░░n1"
    tr "CceMc6illionaire's ceHc6andle   cbWc3hen cbTc3hey cbMc3ade cbIc3t    caTc2otal caWc2orth"
    tr "Cc9══════════════════════ ════════════════════ ═════════════"
    do i=1 to bmillionaires;c1='e6b3a2';if i/2=i%2 then c=2;else c=1
        se 'Cc'substr(c1,c,1)right(bmilhan.i,21)'   ' ; d1=bmildate.i
        d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', '
        d=d||left(d1,4) ; se 'c'substr(c1,c+2,1)left(d,21)
        tr 'c'substr(c1,c+4,1)bmills.i' Million'
    end i;tr "Cc9══════════════════════ ════════════════════ ═════════════" ; tr key1;call MORE0
  return

BANKERS:;call MORE1
    if logmil=0 then call WL("ca"handle" c6viewed the cfBANKERS c6listing!")
    tr 'f1n1c6'hostM' says, cb"caThese players won ceMORE THAN caone million dollars in play!cb"n1'
    tr "cc░░░░░░░░░░░░░░░░░░░░░░░░░z0cfr1 All Time Best WOF Bankers r0cc░░░░░░░░░░░░░░░░░░░░░░░░░n1"
    tr " ceMc6illionaire's ceHc6andle   cbWc3hen cbTc3hey cbMc3ade cbIc3t    cdHc5ow cdTc5hey cdMc5ade cdIc5t   caTc2otal caWc2orth"
    tr "c9══════════════════════ ════════════════════ ══════════════════ ═════════════"
    do i=1 to bankers;c1='e6b3d5a2';if i/2=i%2 then c=2;else c=1
        se 'c'substr(c1,c,1)right(bilhan.i,21)'   ' ; d1=bildate.i
        d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', 'left(d1,4)
        se 'c'substr(c1,c+2,1)left(d,21)'c'substr(c1,c+4,1);z='';if btype.i=3 then z='s'
        se left(word("Neither Regular Bonus Both",btype.i+1)" Round"z,19)
        tr 'c'substr(c1,c+6,1)bills.i' Million' ; end i
    tr "c9══════════════════════ ════════════════════ ══════════════════ ═════════════" ; tr key1;call MORE0
  return

DOCS:;call WL("ca"handle" c6viewed the ccINSTRUCTIONSc6!")
    tr '*4'dfile'Docs.IBM}'
  return

CHECK: /* Did we Lose Carrier in the Game? */
    getcarrier;if result="TRUE" then return 1
    tr 'n1No Carrier!';logentry 'No Carrier in WOF 'ver'!'
    call WL("ca"handle" c9Lost Carrier c6during the game!")
  signal QUIT2

QUIT:;se 'n1c6You cfreally c6wish to cbQUITc6? (caYc6/cbnc6)c9: '
    gc;a=result;if a='N' then do;tr 'cbNo.';return;end
    tr 'caYes!';call SAVEPLAYERS;call SAVEDATA;bad=1
QUIT2:;call WL("ca"handle" cf"action"cbWheel of Fortune, "ver"!")
    call WL("c9"right('ce'dateL,78,'-')'c9---')
    logentry 'cf'action'cbWheel of Fortunecf, ce'ver'cf!'
    if Lhan=handle then call SAVELASTPLAYER
    newlog=0;call SAVELOG;bf;changewhere oldwh
    getcarrier;if result="FALSE" then exit
    if badGM=2&badG=2&bad<0 then do
      se "n1caReEnter cbWheel of Fortune c6now? c7[cbNoc7]c9: ";gc;a=result
      if a="Y" then do;tr 'caYesc6!';signal BEGIN;end;else tr 'cbNoc6.';end
    if (badGM=1|(badGM=2&badG=1))&bad<0 then signal BEGIN
QUIT3:;if exists(dfile'Reg.IBM') then tr 'f1L70 #'center(resetH,20)'}*0'dfile'Reg.IBM}'key1
    call MUFFLE;call MONITOR;call MORE;exit

MENU: /* Main Menu for Wheel of Fortune */
    tr 'f1Cc9╔═════════════════════════════════════════════════════════════════╗'
    tr 'Cc9║ cfWOF ce'left(ver,5)'                             cb'right(vdate,25)' c9║'
    tr 'Cc9║                                                                 c9║'
    tr 'Cc9║'center('c6The letter cb"caYcb" 'word("c9ISN'T cfIS",yvow+1)' c6a ceVowel c6in this game!',89)'c9║'
    tr 'Cc9║                                                                 c9║'
    a=copies('░',28)'cfr1 The Wheel Of Fortune Main Menu! r0cc'copies('░',28)
    tr 'Cc9║cc'center(a,77)'c9║'
    tr 'Cc9║                                                                 c9║'
    tr 'Cc9║  c6Completely cfReWritten c6byc9: cdDotoran c6of cbFrontiers c6(cd716c6)/cb823c6-cb9892c6!  c9║'
    tr 'Cc9║                                                                 ║'
    a=copies('░',28)'cfr1 'bbsname' r0cc'copies('░',28)
    tr 'Cc9║cc'center(a,77)'c9║'
    tr 'Cc9║                                                                 ║'
    tr 'Cc9║   cf<caHcf>caall of Fame       cf<cePcf>celay cbWOF ceGame     cf<caVcf>caiew Game Logs     c9║'
    tr 'Cc9║   cf<ceYcf>ceour Game Stats    cf<caLcf>caast 'left(max1' Puzzles',10)'   cf<ceScf>ceee Millionaires   c9║'
    tr 'Cc9║   cf<caAcf>call Player Stats   cf<ceBcf>ceonus Puzzles     cf<caIcf>canstructions       c9║'
    if Mflag=1 then tr 'Cc9║   c7<c9Cc7>c9ancel This Game   c7<cd?c7>cd????? Command    c7<cbMc7>cbaintenance!       c9║'
    tr 'Cc9║                                                                 ║'
    tr 'Cc9║   cf<ceUcf>ceser Config Edit                       cf<cdQcf>cduit the Game      c9║'
    tr 'Cc9╚═════════════════════════════════════════════════════════════════╝'
    tr center('c6Last cbWheel of Fortune cfMasterc9: ce'resetH,78+15)'n1'
    tr center('c6The Last Player Wasc9: ca'Lhan,78+9)
  return

READCONFIG: /* Read "ConfigData" file. Holds info on game settings. */
    call open(f1,'pfiles:WoFortune.Config','r')
        v=readln(f1);parse var v j ver vdate;j=readln(f1);dfile=readln(f1)
        j=readln(f1);parse var j closed'|'j'|'Lpor'|'Hpor'|'j
        j=readln(f1);parse var j hosts'|'hostM'|'hostF'|'j
        do 4;j=readln(f1);end;a1=readln(f1);a2=readln(f1)
        parse var a1 m1'|'k1'|'j;parse var a2 m2'|'k2'|'j
        a=index(upper(k1),'[H]');if a~=0 then k1=left(k1,a-1)hosts||substr(k1,a+3)
        a=index(upper(k1),'[M]');if a~=0 then k1=left(k1,a-1)hostM||substr(k1,a+3)
        a=index(upper(k1),'[F]');if a~=0 then k1=left(k1,a-1)hostF||substr(k1,a+3)
        a=index(upper(k2),'[H]');if a~=0 then k2=left(k2,a-1)hosts||substr(k2,a+3)
        a=index(upper(k2),'[M]');if a~=0 then k2=left(k2,a-1)hostM||substr(k2,a+3)
        a=index(upper(k2),'[F]');if a~=0 then k2=left(k2,a-1)hostF||substr(k2,a+3)
        Gdata=readln(f1);Bdata=readln(f1)
        parse var Gdata resetM'|'resetV'|'badGM'|'Play'|'Last'|'j'|'hide'|',
                        j'|'zero'|'max1'|'vannaA'|'maint'|'max3'|'mills1'|',
                        mills2'|'mills3'|'chance'|'newplay'|'slow'|',
                        Banked'|'olmM'|'yvow'|'suPR1'|'suVA1'|'suPR2'|',
                        suVA2'|'suPR3'|'suVA3'|'j
        parse var Bdata timer'|'max2'|'minB'|'smart'|'showB'|'smartB'|',
                        puPR1'|'puVA1'|'puPR2'|'puVA2'|'puPR3'|'puVA3'|',
                        bpPR1'|'bpVA1'|'bpPR2'|'bpVA2'|'bpPR3'|'bpVA3'|'j
    call close(f1);gu 1;handle=result;gu 23;port=result
    if open(f1,dfile'LastReset','r') then do;resetD=readln(f1);resetH=readln(f1);call close(f1);end
      else do;resetD=19950625;resetH="No One Yet!";end
    gu 1100454;oldmore=result;gu 1101745;muffle=result;gu 1101746;monitor=result
    if closed=1 then signal CLOSED;call CHECKPORTS
    gv='2306098 2122050 2307346 1101743';parse var gv v1 v2 v3 v4;gu 39;md='mail:users/'result'/_WOF';call READWOF
    p1=1;if cnet=1 then do;v1=v3;v2=v4;p1=0;end;tr 'f1n6cbWheel Of Fortunec6, cf'ver
    if muffle=0 then bbscommand 'mu *';if monitor=1 then bbscommand 'um *'
    if olm=2&olmM=2 then do;se 'n1c6Send an cfOLM cbAlerting c6others? c7[caNoc7]c6: ca'
        gc;a=result;if a~='Y' then do;tr 'No.';olm=0;end;else tr 'Yes!';end
    if olm=0|olmM=0 then do;se 'c6n1Loading...';signal READCONFIG2;end
    getuser 1100461;sex=result;pro='he';if sex=0 then pro='she'
    text="   cd"handle" c6on cePort cf"port" c6is playing cbWheel of Fortune cf"ver"c6, and won't "
    text=text"be able to receive caOLM's c6from you until "pro" is c9finished "
    text=text"c6playing!    ce<<z5cf "hosts" z0ce>>"
    se "q1n1OLM to Port:   ";call SENDOLM(text);se 'n2Loading...'
READCONFIG2:
    call open(f1,dfile'PuzData','r');total=strip(readch(f1,5),'t',d2c(0));call close(f1)
    pr.1='Extra Minutes';pr.2='Game Points';pr.3='Byte Credits';pr.4='File Credits'
    puPR=puPR1;puVA=puVA1;bpPR=bpPR1;bpVA=bpVA1;puPR4=0;puVA4=0;bpPR4=0;bpVA4=0
    InfTimeR=0;gu 1200684;if result=0 then InfTimeR=1;InfGameP=0;gu 21;if result>999999 then InfGameP=1
    gu 1200016;age=result;gu 1100663;a=result;a=a+(1-sign(sign(a)+1))*256
    InfFileC=bittst(d2c(a),6);InfByteC=bittst(d2c(a),7);a=0;b=0
    if puPR=1 & InfTimeR=1 then a=2;if puPR=2 & InfGameP=1 then a=2
    if puPR=3 & InfByteC=1 then a=2;if puPR=4 & InfFileC=1 then a=2
    if a=2 then do;puPR=puPR2;puVA=puVA2
        if puPR=1 & InfTimeR=1 then a=3;if puPR=2 & InfGameP=1 then a=3
        if puPR=3 & InfByteC=1 then a=3;if puPR=4 & InfFileC=1 then a=3;end
    if a=3 then do;puPR=puPR3;puVA=puVA3
        if puPR=1 & InfTimeR=1 then a=4;if puPR=2 & InfGameP=1 then a=4
        if puPR=3 & InfByteC=1 then a=4;if puPR=4 & InfFileC=1 then a=4;end
    if a=4 then do;puPR=puPR4;puVA=puVA4;end
    if bpPR=1 & InfTimeR=1 then b=2;if bpPR=2 & InfGameP=1 then b=2
    if bpPR=3 & InfByteC=1 then b=2;if bpPR=4 & InfFileC=1 then b=2
    if b=2 then do;bpPR=bpPR2;bpVA=bpVA2
        if bpPR=1 & InfTimeR=1 then b=3;if bpPR=2 & InfGameP=1 then b=3
        if bpPR=3 & InfByteC=1 then b=3;if bpPR=4 & InfFileC=1 then b=3;end
    if b=3 then do;bpPR=bpPR3;bpVA=bpVA3
        if bpPR=1 & InfTimeR=1 then b=4;if bpPR=2 & InfGameP=1 then b=4
        if bpPR=3 & InfByteC=1 then b=4;if bpPR=4 & InfFileC=1 then b=4;end
    if b=4 then do;bpPR=bpPR4;bpVA=bpVA4;end
  return

READWOF:;if open(f1,md,'r') then do;config=readln(f1);do i=1 until eof(f1)
  prize.i=readln(f1);end i;prizes=i-1;call close(f1)
  parse var config olm'|'shomil'|'shobmi'|'shoban'|'vanna'|'OLog'|'NLog'|',
  wasc'|'wans'|'spin'|'gasc'|'gans'|'gibm'|'badG'|'j;return;end
  else do;call open(f1,md,'w');call writeln(f1,'0|0|0|0|1|0|0|0|1|2|0|2|3|0|x')
  call close(f1);se '#0 'dfile'UserConfig}';end
 signal READWOF

SAVEWOF:;call open(f1,md,'w');call writeln(f1,config);do i=1 to prizes
    call writeln(f1,prize.i);end i;call close(f1)
  return

SENDOLM:;parse arg text;gu v1;path=result;z="00"x;a=''
    if exists(path'_olm'port) then a='a';name=path'_'a'olm'
    a='w';t=0;if exists(name) then a='a'
    h=left(handle,26,z)copies(z,28)text'0A1A0A'x;h=overlay(d2c(1),h,31,2)
    do i=Lpor to Hpor;n=name||i;getwhere i;w=result
      if w='Idle'|w='(offline)'|i=port then iterate i
      call forbid();call open(f1,n,a);call writeln(f1,h);call close(f1)
      call permit();se 'h2'right(i,2);args=i' 'v2' 'p1' 'port
      address command "run >nil: rx "dfile"OLM_Proc "args;t=t+1
    end i;se 'h2cb't"c6 Total cfOLM's c6Sent!"
  return

MORE:;setobject oldmore;putuser 1100454;return  /* Reset More? Mode */
MORE0:;setobject 0;putuser 1100454;return   /* Turn More? Prompt OFF */
MORE1:;setobject 1;putuser 1100454;return   /* Turn More? Prompt ON  */
MUFFLE:;if muffle=0 then bbscommand 'mu *';return
MONITOR:;if monitor=1 then bbscommand 'um *';return

CLOSED:;if closed=1 then tr "*4 "dfile"graphics/closed.ibm}"
  signal QUIT3

CHECKPORTS:
    cnet=1;bbsidentify bbs;if subword(result,4,1)='2.63' then cnet=0
    ports='';bad=-1;gu 23;port=result;do i=Lpor to Hpor
    if cnet=1 then getwhere i;if cnet=0 then do;b=2621350+(i*4);gu b;end
    if left(result,3)='WOF' & i~=port then bad=i;end i;if bad=-1 then return
    se "*4 "dfile"graphics/busy.ibm}"
  signal QUIT3

READDATA: /* Read "GameData" File. Holds info on current game. */
    call open(f1,dfile'GameData','r');puzplay=readln(f1)
        puzzle=readln(f1) ;answer=readln(f1)
        guessed=readln(f1);clue=readln(f1)
        data1=readln(f1)  ;data2=readln(f1)
    call close(f1);parse var data1 author'|'nextpuznum'|'nextbonpuz'|'j
    parse var data2 consonants'|'vowels'|'j
    puzzle=translate(puzzle,reverse(xrange('!','~')),xrange('!','~'))
    answer=translate(answer,reverse(xrange('!','~')),xrange('!','~'))
    author=translate(author,reverse(xrange('!','~')),xrange('!','~'))
    clue=translate(clue,reverse(xrange('!','~')),xrange('!','~'))
    call COLORPUZZLE;call COLORGUESSED
  return

SAVEDATA: /* Save "GameData" File. */
    puzzle=translate(puzzle,reverse(xrange('!','~')),xrange('!','~'))
    answer=translate(answer,reverse(xrange('!','~')),xrange('!','~'))
    author=translate(author,reverse(xrange('!','~')),xrange('!','~'))
    clue=translate(clue,reverse(xrange('!','~')),xrange('!','~'))
    data1=author'|'nextpuznum'|'nextbonpuz'|x';data2=consonants'|'vowels'|x'
    call open(f1,dfile'GameData','w');call writeln(f1,puzplay)
        call writeln(f1,puzzle) ;call writeln(f1,answer)
        call writeln(f1,guessed);call writeln(f1,clue)
        call writeln(f1,data1)  ;call writeln(f1,data2)
    call close(f1)
  return

READBWINNERS: /* Read "BWinners" File. The Past 20 Winners. */
    call open(f1,dfile'BWinners','r')
        do i=1 until eof(f1);bwinner.i=readln(f1)
            parse var bwinner.i bwinhan.i'|'bwinpuz.i'|'bwindate.i'|'bwincash.i'|'j
        end i;bwinners=i-1
    call close(f1)
  return

SAVEBWINNERS: /* Save "BWinners" File. */
    call open(f1,dfile'BWinners','w')
        do i=1 to bwinners;call writeln(f1,bwinner.i);end i
    call close(f1)
  return

READWINNERS: /* Read "Winners" File. The Past 20 Winners. */
    call open(f1,dfile'Winners','r')
        do i=1 until eof(f1);winner.i=readln(f1)
            parse var winner.i winhan.i'|'winpuz.i'|'windate.i'|'j
        end i;winners=i-1
    call close(f1)
  return

SAVEWINNERS: /* Save "Winners" File. */
    call open(f1,dfile'Winners','w')
        do i=1 to winners;call writeln(f1,winner.i);end i
    call close(f1)
  return

SAVEBWINNER: /* Save "BWinner" File. */
    call open(f1,dfile'BWinner','w')
        call writeln(f1,bwinner)
    call close(f1)
  return

READWINNER: /* Read "Winner" File. Who was the LAST Winner? */
    call open(f1,dfile'Winner','r')
        winner=readln(f1)
    call close(f1)
    parse var winner winhan'|'winpuz'|'windate'|'winmon'|'wins'|'j
  return

SAVEWINNER: /* Save "Winner" File. */
    call open(f1,dfile'Winner','w')
        call writeln(f1,winner)
    call close(f1)
  return

READMILLIONAIRES:
    call open(f1,dfile'Millionaires','r')
        do i=1 until eof(f1);mil.i=readln(f1)
            parse var mil.i mills.i'|'mildate.i'|'milhan.i'|'j
        end i;millionaires=i-1
    call close(f1)
  return

SAVEMILLIONAIRES:
    do i=1 to millionaires-1;d=i;do j=i+1 to millionaires;d=d+1
    if mil.d>mil.i then do;y=mil.i;mil.i=mil.d;mil.d=y;end;end j;end i
    call open(f1,dfile'Millionaires','w')
        do i=1 to millionaires;if index(mil.i,'No One Yet')=0 then call writeln(f1,mil.i);end i
    call close(f1)
  return

READBMILLIONAIRES:
    call open(f1,dfile'BMillionaires','r')
        do i=1 until eof(f1);bmil.i=readln(f1)
            parse var bmil.i bmills.i'|'bmildate.i'|'bmilhan.i'|'j
        end i;bmillionaires=i-1
    call close(f1)
  return

SAVEBMILLIONAIRES:
    do i=1 to bmillionaires-1;d=i;do j=i+1 to bmillionaires;d=d+1
    if bmil.d>bmil.i then do;y=bmil.i;bmil.i=bmil.d;bmil.d=y;end;end j;end i
    call open(f1,dfile'BMillionaires','w')
        do i=1 to bmillionaires;if index(bmil.i,'No One Yet')=0 then call writeln(f1,bmil.i);end i
    call close(f1)
  return

READBANKERS:
    call open(f1,dfile'Bankers','r')
        do i=1 until eof(f1);bil.i=readln(f1)
            parse var bil.i bills.i'|'bildate.i'|'bilhan.i'|'btype.i'|'j
        end i;bankers=i-1
    call close(f1)
  return

SAVEBANKERS:
    do i=1 to bankers-1;d=i;do j=i+1 to bankers;d=d+1
    if bil.d>bil.i then do;y=bil.i;bil.i=bil.d;bil.d=y;end;end j;end i
    call open(f1,dfile'Bankers','w')
        do i=1 to bankers;if index(bil.i,'No One Yet')=0 then call writeln(f1,bil.i);end i
    call close(f1)
  return

READSTATS: /* Read "Stats" File & Initialize These Variables. */
    call open(f1,dfile'Stats','r')
        do i=1 to 6;stats.i=readln(f1);end i
    call close(f1)
    parse var stats.1 mostplaysH'|'mostplays'|'j
    parse var stats.2 mostpuzsH'|'mostpuzs'|'j
    parse var stats.3 mostbankH'|'mostbank'|'j
    parse var stats.4 mostcashH'|'mostcash'|'j
    parse var stats.5 mostbwinsH'|'mostbwins'|'j
    parse var stats.6 mostbcashH'|'mostbcash'|'j
  return

SAVESTATS: /* Save "Stats" File. */
    call open(f1,dfile'Stats','w')
        do i=1 to 6;call writeln(f1,stats.i);end i
    call close(f1)
  return

READPLAYERS: /* Read "Players" File & Mark Current Player if Exists. */
    call open(f1,dfile'Players','r');player=0
        do i=1 until eof(f1);player.i=readln(f1)
            parse var player.i han'|'j
            if han=handle then player=i
        end i;players=i-1
    call close(f1)
  return

SAVEPLAYERS: /* Save "Players" File. */
    player.player=handle'|'puzwon'|'monwon'|'puznum'|'moncur'|'played'|'percent'|'bonwins'|'boncash'|'mills'|'bmills'|x'
    call open(f1,dfile'Players','w')
        do i=1 to players;call writeln(f1,player.i);end i
    call close(f1);address command "sort "dfile"Players "dfile"Players"
  return

SETUP:;tr '#0'dfile'SetUp}';return

RESETGAME:
  if resetM=1 then do;se 'f1n1c6After speaking with c9'sysop'c6, 'hostM' tells you, cb"cd'handle'ca, your cfSysOpca, c9'sysop
    se 'ca, tells me it''s been ce'resetV' months casince the last reset of this game! Jeez, you''d think '
    tr 'he cbruns cathe place or something!cb"';end
  else do;if olm>0 then do;se "Sending OLM's:   "
    call SENDOLM("   cfCongratulations c6to cd"handle" c6who just became c9MASTER c6of cbWheel of Fortunec6!");end
    call WL("cfCongratulations c6to ca"handle" c6who just became c9MASTER c6of cbWheel of Fortunec6!")
    se 'f1n1c6Gasping for breath, 'hostM' says, cb"caCongratulations cd'handle
    se 'ca, You''ve just become cfMASTER caof cbWheel of Fortuneca!  We can now c9RESET '
    tr 'cathe game, but c9not cauntil we ceimmortalize cayour name for posterity!cb"'
    gu 1100461;ge=result;a1=HostF;a2=HostM;a3="hunk";if ge=0 then do;z=a1;a1=a2;a2=zl;a3="babe";end
    se 'n1c6While 'a2' takes care of business with the director off stage, '
    se a1' walks up to you and says, cb"caWow cd'handle'ca, your a cf'a3'ca! Here''s '
    se 'my phone number. Give me a call tonight, as I have another '
    tr 'game I''d like to play with you.cb"' ; end
    se 'n1cbResetting c6player caMc2onetary c6values...';call READPLAYERS;monwon=0;moncur=0;boncash=0;mills=0;bmills=0
    call open(f1,dfile'Players','w');do i=1 to players
    parse var player.i v1'|'v2'|'v3'|'v4'|'v5'|'v6'|'v7'|'v8'|'v9'|'v10'|'v11'|'j
    player.i=v1'|'v2'|0|'v4'|0|'v6'|'v7'|'v8'|0|0|0|x';call writeln(f1,player.i);end i
    call close(f1);call open(f1,dfile'LastReset','w');call writeln(f1,date('s'))
    call writeln(f1,handle);call close(f1);tr 'cddonec6!n1'key1
  return

D0: /* Call The Correct Wheel Graphic Location */
    b='D'spot;c=spot;se 'f0n1';signal (b)
D1: /* 100 mci done */
    tr 'Ccf▄▄▄▄z1▀▀▀▀    ca▄    ▄▄▄    ▄▄▄    cf▀▀▀▀z0▄▄▄▄'
    tr 'Ccf█z1           ca▀█   █   █  █   █           cf█z0'
    tr 'Ccf█z1            ca█   █   █  █   █           cf█z0'
    tr 'Ccf█z1           ca▄█▄  ▀▄c9█c1z0▀z1ca▀  ▀▄▄▄▀           cf█z0'
    tr 'Ccf▀z1▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z1cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0cf▀'
  return
D2: /* 150 mci done */
    tr 'Ccf▄▄▄▄z2▀▀▀▀    cb▄   ▄▄▄▄▄   ▄▄▄    cf▀▀▀▀z0▄▄▄▄'
    tr 'Ccf█z2           cb▀█   █▄▄▄   █   █           cf█z0'
    tr 'Ccf█z2            cb█       █  █   █           cf█z0'
    tr 'Ccf█z2           cb▄█▄  ▀▄c9█c2z0▀z2cb▀  ▀▄▄▄▀           cf█z0'
    tr 'Ccf▀z2▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z2cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0cf▀'
  return
D3: /* 200 mci done */
    tr 'Ccf▄▄▄▄z3▀▀▀▀  cc▄▄▄    ▄▄▄    ▄▄▄    cf▀▀▀▀z0▄▄▄▄'
    tr 'Ccf█z3             cc█  █   █  █   █           cf█z0'
    tr 'Ccf█z3          cc▄▀▀   █   █  █   █           cf█z0'
    tr 'Ccf█z3          cc█▄▄▄  ▀▄c9█c3z0▀z3cc▀  ▀▄▄▄▀           cf█z0'
    tr 'Ccf▀z3▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z3cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0cf▀'
  return
D4: /* 250 mci done */
    tr 'Ccf▄▄▄▄z4▀▀▀▀  cd▄▄▄   ▄▄▄▄▄   ▄▄▄    cf▀▀▀▀z0▄▄▄▄'
    tr 'Ccf█z4             cd█  █▄▄▄   █   █           cf█z0'
    tr 'Ccf█z4          cd▄▀▀       █  █   █           cf█z0'
    tr 'Ccf█z4          cd█▄▄▄  ▀▄c9█c4z0▀z4cd▀  ▀▄▄▄▀           cf█z0'
    tr 'Ccf▀z4▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z4cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0cf▀'
  return
D5: /* 300 mci done */
    tr 'Ccf▄▄▄▄z5▀▀▀▀  ce▄▄▄    ▄▄▄    ▄▄▄    cf▀▀▀▀z0▄▄▄▄'
    tr 'Ccf█z5         ce▀   █  █   █  █   █           cf█z0'
    tr 'Ccf█z5           ce▀▀▄  █   █  █   █           cf█z0'
    tr 'Ccf█z5         ce▀▄▄▄▀  ▀▄c9█c5z0▀z5ce▀  ▀▄▄▄▀           cf█z0'
    tr 'Ccf▀z5▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z5cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0cf▀'
  return
D6: /* 400 mci done */
    tr 'Ccf▄▄▄▄z6▀▀▀▀ cf▄   ▄   ▄▄▄    ▄▄▄    cf▀▀▀▀z0▄▄▄▄'
    tr 'Ccf█z6         cf█   █  █   █  █   █           cf█z0'
    tr 'Ccf█z6         cf▀▀▀▀█  █   █  █   █           cf█z0'
    tr 'Ccf█z6             cf█  ▀▄c9█c6z0▀z6cf▀  ▀▄▄▄▀           cf█z0'
    tr 'Ccf▀z6▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z6cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0cf▀'
  return
D7: /* 450 mci done */
    tr 'Ccf▄▄▄▄z7▀▀▀▀ c9▄   ▄  ▄▄▄▄▄   ▄▄▄    cf▀▀▀▀z0▄▄▄▄'
    tr 'Ccf█z7         c9█   █  █▄▄▄   █   █           cf█z0'
    tr 'Ccf█z7         c9▀▀▀▀█      █  █   █           cf█z0'
    tr 'Ccf█z7             c9█  ▀▄c9█c7z0▀z7c9▀  ▀▄▄▄▀           cf█z0'
    tr 'Ccf▀z7▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z7cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0cf▀'
  return
D8: /* 500 mci done */
    tr 'Ccf▄▄▄▄z1▀▀▀▀ cb▄▄▄▄▄   ▄▄▄    ▄▄▄    cf▀▀▀▀z0▄▄▄▄'
    tr 'Ccf█z1         cb█▄▄▄   █   █  █   █           cf█z0'
    tr 'Ccf█z1             cb█  █   █  █   █           cf█z0'
    tr 'Ccf█z1         cb▀▄▄▄▀  ▀▄c9█c1z0▀z1cb▀  ▀▄▄▄▀           cf█z0'
    tr 'Ccf▀z1▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z1cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0cf▀'
  return
D9: /* 600 mci done */
    tr 'Ccf▄▄▄▄z2▀▀▀▀   cc▄▄▄   ▄▄▄    ▄▄▄    cf▀▀▀▀z0▄▄▄▄'
    tr 'Ccf█z2         cc▄▀     █   █  █   █           cf█z0'
    tr 'Ccf█z2         cc█▀▀▀▄  █   █  █   █           cf█z0'
    tr 'Ccf█z2         cc▀▄▄▄▀  ▀▄c9█c2z0▀z2cc▀  ▀▄▄▄▀           cf█z0'
    tr 'Ccf▀z2▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z2cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0cf▀'
  return
D10: /* 750 mci done */
    tr 'Ccf▄▄▄▄z3▀▀▀▀ cd▄▄▄▄▄  ▄▄▄▄▄   ▄▄▄    cf▀▀▀▀z0▄▄▄▄'
    tr 'Ccf█z3             cd█  █▄▄▄   █   █           cf█z0'
    tr 'Ccf█z3           cd▄▀       █  █   █           cf█z0'
    tr 'Ccf█z3         cd▄▀     ▀▄c9█c3z0▀z3cd▀  ▀▄▄▄▀           cf█z0'
    tr 'Ccf▀z3▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z3cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0cf▀'
  return
D11: /* 1000 mci done */
    tr 'Ccf▄▄▄▄z4▀▀▀▀ ce▄    ▄▄▄    ▄▄▄    ▄▄▄cf▀▀▀▀z0▄▄▄▄'
    tr 'Ccf█z4        ce▀█   █   █  █   █  █   █       cf█z0'
    tr 'Ccf█z4         ce█   █   █  █   █  █   █       cf█z0'
    tr 'Ccf█z4        ce▄█▄  ▀▄▄▄▀c9█c4z0▀z4ce▀▄▄▄▀  ▀▄▄▄▀       cf█z0'
    tr 'Ccf▀z4▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z4cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0cf▀'
  return
D12: /* Free Spin mci done */
    tr 'Ccf▄▄▄▄z5▀▀▀▀                       cf▀▀▀▀z0▄▄▄▄'
    tr 'Ccf█z5 cb█▀▀▀ █▀▀▄ █▀▀ █▀▀ ▄▀▀▄ █▀▀▄ ▀█▀ █▄  █ cf█z0'
    tr 'Ccf█z5 cb█▀▀  █▀▀▄ █▀  █▀   ▀▄  █▀▀   █  █ █ █ cf█z0'
    tr 'Ccf█z5 cb█    █  █ █▄▄ █▄▄c9█cbz0▀z5cb▄▄▀ █    ▄█▄ █  ▀█ cf█z0'
    tr 'Ccf▀z5▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z5cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0cf▀'
  return
D13: /* Surprise mci done */
    tr 'Ccf▄▄▄▄z6▀▀▀▀                       cf▀▀▀▀z0▄▄▄▄'
    tr 'Ccf█z6cb▄▀▀▄ █  █ █▀▀▄ █▀▀▄ █▀▀▄ ▀█▀ ▄▀▀▄ █▀▀  cf█z0'
    tr 'Ccf█z6 cb▀▄  █  █ █▀▀▄ █▀▀  █▀▀▄  █   ▀▄  █▀   cf█z0'
    tr 'Ccf█z6cb▀▄▄▀ ▀▄▄▀ █  █ █  c9█c6z0▀z6cb█  █ ▄█▄ ▀▄▄▀ █▄▄  cf█z0'
    tr 'Ccf▀z6▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z6cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0cf▀'
  return
D14: /* Lose Turn mci done */
    tr 'Ccf▄▄▄▄z3▀▀▀▀                       cf▀▀▀▀z0▄▄▄▄'
    tr 'Ccf█z3 ce█   ▄▀▀▄ ▄▀▀▄ █▀▀ ▀█▀ █  █ █▀▀▄ █▄  █ cf█z0'
    tr 'Ccf█z3 ce█   █  █  ▀▄  █▀   █  █  █ █▀▀▄ █ █ █ cf█z0'
    tr 'Ccf█z3 ce█▄▄ ▀▄▄▀ ▀▄▄▀ █▄▄c9█c3z0▀z3ce█  ▀▄▄▀ █  █ █  ▀█ cf█z0'
    tr 'Ccf▀z3▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z3cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0cf▀'
  return
D15: /* Bankrupt mci done */
    tr 'Ccf▄▄▄▄z4▀▀▀▀                       cf▀▀▀▀z0▄▄▄▄'
    tr 'Ccf█z4cb█▀▀▄ ▄▀▀▄ █▄  █ █ ▄▀ █▀▀▄ █  █ █▀▀▄ ▀█▀cf█z0'
    tr 'Ccf█z4cb█▀▀▄ █▀▀█ █ █ █ █▀▄  █▀▀▄ █  █ █▀▀   █ cf█z0'
    tr 'Ccf█z4cb█▄▄▀ █  █ █  ▀█ █ c9█cbz0▀z4cb █  █ ▀▄▄▀ █     █ cf█z0'
    tr 'Ccf▀z4▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z4cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0cf▀'
  return
D16: /* Blank Wheel */
    tr 'Ccf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄'
    tr 'C▄▄▄▄z7▀▀▀▀  c8Written By Dotoran!  cf▀▀▀▀z0▄▄▄▄'
    tr 'C█z7                                       z0█'
    tr 'C█z7                                       z0█'
    tr 'C█z7                  c9█c0▄                   z0cf█'
    tr 'C▀z7▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9█z0 z7cf▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄z0▀'
    tr 'C▀z7▄              c9██z0 z7              cf▄z0▀'
    tr 'C▀z7▄            c9██z0 z7            cf▄z0▀'
    tr 'C▀z7▄          c9███z0 z7         cf▄z0▀'
    tr 'C▀z7▄        c9███z0 z7       cf▄z0▀'
    tr 'C▀z7▄      c9███z0 z7     cf▄z0▀'
    tr 'C▀z7▄    c9███z0 z7   cf▄z0▀'
    tr 'C▀z7▄  c9███z0 z7 cf▄z0▀'
    tr 'C▀z7▄c9███z0 cf▀'
    tr 'C▀'
  return
D17: /* Rotating Wheel Routine */
    tr 'C█▀▀▀▀▀▀▀▀▀▀█';tr 'C█▀▀ BANKRUPT ▀▀█';tr 'C█▀▀ 300 ▄▄▄▄ 750 ▀▀█'
    tr 'C█▀▀ 250 ▄▄████▄▄ 250 ▀▀█';tr 'C█▀▀ 600 ▄▄████████▄▄ 300 ▀▀█'
    tr 'C█▀▀ 400 ▄▄█████ ██████▄▄ 200 ▀▀█';tr 'C█▀ 150 ▄▄████████ ███████▄▄ 100 ▀█'
    tr 'C█ 'left(word('200 1000',(wheel=wheal)+1),4)' ████WOF███ █v6.40███  500 █'
    tr 'C█▄ 250 ▀▀████████ ███████▀▀ 400 ▄█';tr 'C█▄▄ 400 ▀▀▀██████ ███▀▀▀ 300 ▄▄█'
    tr 'C█▄▄ LOSE ▀█████ ██▀ FREE ▄▄█';tr 'C█▄▄ 450 ▀▀███ ▀▀ 200 ▄▄█'
    tr 'C█▄▄ 150 ▀▀   100 ▄▄█';tr 'C█▄▄ SURPRISE ▄▄█';tr 'C█▄▄▄▄▄▄▄▄▄▄█'
    a=random(2,3);b=random(1,24);t=slow%100;l1=1;l2=1;do i=1 to a;do j=1 to 24;call time('r');do until time('e')>=t;end
    tr ''l1'H 'l2'H ';l=word(locs,j);parse var l l1'|'l2;tr ''l1'Hce*'l2'H*';end j;end i
    do i=1 to b;call time('r');do until time('e')>=t;end;tr ''l1'H 'l2'H ';l=word(locs,i);parse var l l1'|'l2
    tr ''l1'Hce*'l2'H*';end i;se '1H';c=word(wheel,b)
  return

TITLE:
    tr 'Cz5c0▀┌─────────────┐▀z0Cz6c9┌─────────────────────────────────────┐z0'
    tr 'Cz5c0▀┌─┘▄z0Cz5▄└─┐▀z0Cz6c9│ z7cc▄▀▀z6 z2c1░░░z6 z2░░░z6 z2░░░z6 z7cc▀█▀z6 z2c0▓▓▓z6 z2▓▓▓z6 z2▓▓▓z6 z2▓▓▓z6c9 │z0'
    tr 'Cz5c0▀┌─┘▄z0cfCT H ECz5c0▄└─┐▀z0Cz6c9│ z7cc▀▄▄z6 z2c1░░░z6 z2░░░z6 z2░░░z6 z7cc █ z6 z2c0▓▓▓z6 z2▓▓▓z6 z2▓▓▓z6 z2▓▓▓z6c9 │z0'
    tr '   z5c0▀┌─┘▄z0Cz5▄└─┐▀z0Cz6c9│                                     │z0'
    tr ' z5c0▀┌─┘▄z0cbCW H E E LCz5c0▄└─┐▀z0Cz6c9│ z2c1░░░z6 z7cc▄▀▄z6 z2c1░░░z6 z7cc▀█▀z6 z2c1░░░z6 z2░░░z6 z2░░░z6 z7cc█▀▄z6 z2c0▓▓▓z6c9 │z0'
    tr ' z5c0▄│▄z0Cz5▄│▄z0Cz6c9│ z2c1░░░z6 z7cc█▀█z6 z2c1░░░z6 z7cc █ z6 z2c1░░░z6 z2░░░z6 z2░░░z6 z7cc█▄▀z6 z2c0▓▓▓z6c9 │z0'
    tr '  z5c0│z0cfCO FCz5c0│z0Cz6c9└─────────────────────────────────────┘z0'
    tr ' z5c0▀│▀z0Cz5▀│▀z0'
    tr ' z5c0▄└─┐▀z0cbCF O R T U N ECz5c0▀┌─┘▄z0CcbP E R S O N'
    tr '   z5c0▄└─┐▀z0Cz5▀┌─┘▄z0'
    tr 'Cz5c0▄└─┐▀z0ceC'left(ver,5)'Cz5c0▀┌─┘▄z0CcdCompletely ReWritten by c9Dotorancd!'
    tr 'Cz5c0▄└─┐▀z0Cz5▀┌─┘▄z0'
    tr 'Cz5c0▄└─────────────┘▄z0CcfYour Hostsc9: ca'hosts'cf!!n1'
  return

SYNTAX:;ERROR:;IOERR:;e1=' c9Errorcf: ca'rc' cf(ca'errortext(rc)'cf)';e2='  c9Linecf: ce'left(sigl,4)'c9Filecf:'
    gu 1311992;a=result;gu 1311960;b=result;c='cb"ce'a||b'cb"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2;e=sourceline(sigl)
    do while e~='';e3='c9Sourcecf: cd'left(e,37);tr e3;logentry e3;e=substr(e,37);end;bufferflush;signal QUIT3
/** Last Edited: 29-Sep-95 ************************************************\
\****************************************** FRONTIERS BBS (716)/823-9892 **/